Ответы на вопрос:
если pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i: =100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
Популярно: Информатика
-
akarapiria417.03.2022 09:20
-
AnDrejk418.03.2023 15:38
-
Unikorn11102.02.2020 13:32
-
smolikarina07.06.2023 18:56
-
трум118.08.2020 08:18
-
nastyavix22.08.2022 06:47
-
dashafomina9426.11.2021 11:35
-
zakirovAlesha17Алёша28.11.2022 20:20
-
nasty30126.07.2021 06:50
-
konfetkaa200429.07.2020 21:00