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

Дано предложение. Напечатать его слова в обратном порядке.(Паскаль)

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

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.