Ответы на вопрос:
//я знаю, можно долго считать это на пальцах, но это ведь не наш путь //данная программа возвращает верный ответ //pascal abc.net версия 2.2 сборка 790 var a,b,bug,i: integer; s,s1: string; begin; for a: =100 to 999 do begin; str(a,s); str(a,s1); insert(s[length(s)],s,1); delete(s,length(s),1); val(s,b,bug); if (b-12=a*2) and (s1[3]='4') then writeln(a); end; end. ответ: 204
Популярно: Информатика
-
girlssss02.05.2020 15:39
-
mariee875maria15.02.2022 19:32
-
keklol199013.04.2023 07:55
-
Nastua20404228.10.2022 11:51
-
onofon12.03.2020 22:38
-
Щкх28.06.2021 23:38
-
Lila0856415.08.2020 12:03
-
Robobob20.01.2022 21:24
-
kill324200103.08.2020 18:28
-
danikstremers130.11.2021 02:49