Составьте программу, которая введенное с клавиатуры предложение выводит в первой строке экрана, а затем по одному слову перемещает на последнюю строку
Составьте программу, которая введенное с клавиатуры предложение выводит в первой строке экрана, а затем по одному слову перемещает на последнюю строку
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы