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

sizikova2004 sizikova2004    1   10.04.2020 13:19    4

Ответы
ШерлокХолмс11111 ШерлокХолмс11111  13.10.2020 01:31

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. Удачи

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика