Запишите результат выполнения программы:

var s: string;

i: byte;

begin

s:= '3571'; a:='';

for i:= length(s) downto 1 do

a:= a + s[i] + a;

writeln(a);

end.

dimoncool67    2   11.05.2020 07:09    11