Question

Составьте программу, которая выводит слово без букв «а».

Answer 1

Ответ:

var s, b:string;

i, a:integer;

begin

s:='';

b:='';

writeln ('Введите слово, в котором надо убрать буквы а');

readln (s);

for i:=1 to length (s) do begin

if s[i] <> 'а' then b:=b + s[i]

else continue

end;

writeln (b);

end.

Все проверил на PascalABC. Удачи