Предмет: Информатика,
автор: Nina159
Ввести предложение, где между словами не менее одного пробела. Вывести слова в столбец.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: talant321
Предмет: Геометрия,
автор: NymBb