Исправить ошибки так, чтобы "абвгд" шло наоборот "дгвба" : Program Obrashenie;
Var k, p, i: integer;
m, n, r: string;
begin
m= 'абвгд' ;
n= ' ' ;
k:= length (m) ;
for i:= 1 to k do
p:= k+1-1;
n:= n+m [p] ;
r:=n
writeln('r=', r) ;
end.

​

ellapopova05    3   22.10.2020 13:26    0