Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, которая введенное с клавиатуры предложение выводит в первой строке экрана, а затем по одному слову перемещает на последнюю строку

Ответ оставил Гость

Program pr;
Uses crt;
Var s:string;
i:integer;
Begin
Writeln(Введите предложение);
readln(s);
Writeln;
Writeln(s);
for i:=1 to length(s) do
Begin
if (s[i]<> )
then Write(s[i])
else Writeln;
end; 
readkey;
end.