запишите программу, определяющая колво гласных букв в введенном слове
Ответы на вопрос
Ответил Студэнt
0
//прога на Pascal`e
var
s: string;
ch: set of char = ['а', 'о', 'у', 'е', 'ё', 'и', 'э', 'я', 'ю'];
i, count: byte;
begin
readln (s);
for i:=1 to length (s) do
if s[i] in ch then inc (count);
write (count);
end.
var
s: string;
ch: set of char = ['а', 'о', 'у', 'е', 'ё', 'и', 'э', 'я', 'ю'];
i, count: byte;
begin
readln (s);
for i:=1 to length (s) do
if s[i] in ch then inc (count);
write (count);
end.
Ответил seregakrut2
0
Спасибо огромное!
Новые вопросы