Question

Напишите программу, которая удалит из текста все гласные буквы (см. примеры.9.9,9.5)
ИСПОЛЬЗУЙТЕ ЦИКЛ WHILE

Answer 1

Ответ:

var s,g:string;

i:integer;

begin

g:='ЁУЕЭОАЫЯИЮёуеэоаыяию';

writeln('Введите строку');

readln(s);

i:=1;

while i<=length(s) do

begin

if pos(s[i],g)<>0 then delete(s,i,1)

else i:=i+1;

end;

writeln('Преобразованная строка: ');

writeln(s);

end.

Объяснение:

фото