Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 16
.pas Program praktika16;
Uses CRT;
Var s: String;
str: String[1];
i, n, k, summa, glas, soglas, error: Integer;
Begin
Write('Введите строку символов: ');
ReadLn(s);
n:=Length(s);
summa:=0;
glas:=0;
soglas:=0;
For i:= 1 to n Do
Begin
str:=s[i];
If (s[i] In ['0'..'9'])
Then
Begin
val(str, k, error);
summa:=summa+k;
End
Else
Begin
If (s[i] In ['a','e','i','o','u'])
Then glas:=glas+1
Else soglas:=soglas+1;
End;
End;
WriteLn;
WriteLn('сумма цифр = ', summa);
WriteLn;
WriteLn('количество гласных = ', glas);
WriteLn;
WriteLn('количество согласных = ', soglas);
ReadLn;
End.
Uses CRT;
Var s: String;
str: String[1];
i, n, k, summa, glas, soglas, error: Integer;
Begin
Write('Введите строку символов: ');
ReadLn(s);
n:=Length(s);
summa:=0;
glas:=0;
soglas:=0;
For i:= 1 to n Do
Begin
str:=s[i];
If (s[i] In ['0'..'9'])
Then
Begin
val(str, k, error);
summa:=summa+k;
End
Else
Begin
If (s[i] In ['a','e','i','o','u'])
Then glas:=glas+1
Else soglas:=soglas+1;
End;
End;
WriteLn;
WriteLn('сумма цифр = ', summa);
WriteLn;
WriteLn('количество гласных = ', glas);
WriteLn;
WriteLn('количество согласных = ', soglas);
ReadLn;
End.
Соседние файлы в папке Информатика Практика