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.​

Answer 1

Выведет: b4b43b432b4321

Answer 2

Кажется, в предоставленном вами коде есть несколько ошибок, из-за которых программа не будет компилироваться или выполняться корректно. Вот исправленный вариант вашего кода:

pascalCopy code
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.

После исправлений программа будет добавлять цифры из строки s к строке a и выводить результат на каждом шаге цикла. Результат выполнения программы будет следующим:

Copy code
b4b34b234123

На каждом шаге цикла происходит добавление очередной цифры из строки s к строке a, и затем выводится текущее значение строки a.