Составьте программу, выводящую на экран все четырехзначные числа, сумма цифр которых меньше 4 паскаль
176
349
Ответы на вопрос:
Var s: string; begin for var i: =1000 to 9999 do begin s: =i.tostring; if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))< 4)then write(i,' '); end; end.
Популярно: Информатика
-
diassultanov107.05.2022 20:45
-
09alan21.06.2021 19:47
-
ждл122.03.2023 03:14
-
makhero11113.12.2020 20:46
-
blurryriden26.05.2023 14:23
-
Хряшка10.04.2020 06:46
-
pcd1gg16.02.2023 23:47
-
Makeev2016.01.2023 00:09
-
соня789110.05.2020 06:55
-
hcggchhcfuj09.11.2020 16:07