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

var s,a: string;

i: byte;

begin

s:= '1234';

a:='b';

for i:= length(s) downto 1 do begin

a:= a + s[i] ;

write(a);

end;

end.

Question

Информатика: Запишите результат выполнения программы:var s,a: string;i: byte;begins:= 1234 ; a:= b ;for i:= length(s) downto 1 do begina:= a + s[i] ;write(a);end;end.​

Daisy15 · Answer

Выведет: b4b43b432b4321...

Запишите результат выполнения программы:var s,a: string;i: byte;begins:= '1234'; a:='b';for i:= length(s) downto 1 do begina:= a + s[i] ;write(a);end;end.​

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

var s,a: string;

i: byte;

begin

s:= '1234';

a:='b';

for i:= length(s) downto 1 do begin

a:= a + s[i] ;

write(a);

end;

end.