Ввести предложение, где между словами не менее одного пробела. вывести слова в столбец.

egor22832 egor22832    1   29.03.2019 11:20    0

Ответы
dimasikbervino dimasikbervino  27.05.2020 12:22

var
a,n:string;
i:integer;
begin
readln(a);
for i:=1 to length(a) do begin
if a[i]<>' ' then
n:=n+a[i]
else begin
writeln(n);
n:='';
end;
end;
writeln(n)
end.

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