Дано предложение. Напечатать его слова в обратном порядке.(Паскаль)
Дано предложение. Напечатать его слова в обратном порядке.(Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar a:string;
i,k:integer;
b:char;
begin
writeln('Введите строку: ');
readln(a);
k:=length(a);
for i:=1 to round(k/2) do
begin
b:=a[i];
a[i]:=a[k-i+1];
a[k-i+1]:=b;
end;
writeln;
writeln('Итоговая строка: ');
writeln(a:7);
end.
Не нашли ответ?
Похожие вопросы