Ответы на вопрос:
Var i,s1,s2: integer; begin i: =100; repeat s1: =(i div 100)+((i mod 100) div 10)+(i mod 10); s2: =i div 20; s2: =(s2 div 10)+(s2 mod 10); if s1=s2 then writeln(i); i: =i+20; until i> 999 end. результат выполнения программы: 180 360 540 720 900
Популярно: Информатика
-
elyakomarova016.06.2021 20:48
-
957089612322.04.2023 04:52
-
julka050505.11.2020 09:36
-
zhjdjq200531.03.2022 01:42
-
LiViLi10.10.2022 18:47
-
mashkavoronina15.04.2023 13:46
-
Aruzhan555521.07.2021 02:36
-
papstik28.10.2020 22:05
-
kirilsex6917.08.2020 21:36
-
dratyti2004160522.06.2022 23:52