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

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

Популярно: Информатика

• 

  DmitriyGromov

  21.05.2023 11:36
  Признаки классификации вирусных программ...
• 

  НАСТЁНАМИЛАЯ12012007

  31.08.2022 05:07
  нужно переделать программу на языке С Найти среднее арифметическое элементов...
• 

  2001maks44

  26.06.2022 08:40
  Сведения команды из окружающего мира называется...
• 

  prokop228

  21.09.2022 04:41
  Из двадцати семи монет одна фальшивая -она легче остальных.надо определить...
• 

  kriskuziya0708

  17.07.2020 11:39
  Что такое молекула? молекула - это мельчайшая частица какого-либо вещества...
• 

  valeria204567

  09.10.2020 13:40
  Обработка и поиск двумерного массива: размер массива: 4х2 вещественные; способ...
• 

  лидия87

  13.09.2022 16:46
  Вклассе 1111 девочек и 1010 мальчиков. сколько учеников в классе ? прошу...
• 

  Nuruk04

  20.04.2020 01:27
  Скорость передачи данных по выделенному каналу связи составляет 8 мегабайт...
• 

  dashaevа07

  27.03.2023 02:56
  Во Значение ячейки A1=10, а ячейки A2=7. Чему будет равно значение ячейки В1...
• 

  Chempionsyper

  23.02.2020 16:47
  Вернись к 3-му, 4-му и 5-му сочетаниям слов из предыдущего упражнения. Запиши...