примени эту программу
{ ñêîëüêî ãäàñíûõ â ïðåäëîæåíèè
}
const
p='все гласеные буквы';
var
s:string; i,n:integer;
begin
writeln('текст: '); n:=0; readln(s);
for i:=1 to length(s) do if pos(s[i],p)<>0 then inc(n);
writeln(n);
readln
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
17 Напишите программу, которая удалит из текста все гласные буквы (см. примеры9.5 и 9.9
примени эту программу
{ ñêîëüêî ãäàñíûõ â ïðåäëîæåíèè
}
const
p='все гласеные буквы';
var
s:string; i,n:integer;
begin
writeln('текст: '); n:=0; readln(s);
for i:=1 to length(s) do if pos(s[i],p)<>0 then inc(n);
writeln(n);
readln
end.
Объяснение: