ДАЮ МАКС КОЛ-ВО program pr1;
var s:string; i:=integer;
begin
s:='1234';
a:='';
for i:= length(s) downto 1 do
a:=a+s[i]+a;
writeln(a)
end.
обясните КАК и ПОЧЕМУ получается ответ
116
153
Ответы на вопрос:
В коде программы были ошибки, я их подправил. Вот исправный код:
program pr1;
var s,a:string; i:integer; //объявляем переменные
begin
s:='1234'; //исходная строка
a:=''; //заполняемая строка для вывода
for i:= length(s) downto 1 do //от длины исходного списка "s" до 0
a:=a+s[i]+a; //добавляем к списку "a" новый символ из списка "s" и после этого символа добавляем строку "a"
writeln(a) //выводим список "a"
end.
Этот код берёт из строки s символ и добавляет его в конец строки a и после этого символа добавляет строку а.
Для понимания, что происходит в каждой строке кода, я закоментил прогу.
Если остались вопросы, пишите кометарии, я отвечу.
Популярно: Информатика
-
shmklevdima12.02.2022 14:32
-
marinamoshonkina17.04.2023 09:41
-
Кипарисный20.07.2021 09:15
-
данил123475888804.11.2021 03:07
-
Пелагея1407.04.2022 07:54
-
аааа28712.03.2022 05:46
-
Вппгш06.02.2022 15:58
-
Znanija9628.08.2020 05:21
-
kuznetovalaura24.02.2023 18:56
-
Lis25pfi17414.06.2020 11:42