Ответы на вопрос:
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.
Популярно: Информатика
-
4 Какие действия нужно выполнить при вычислении значения выражения...
Никита9211131.03.2023 15:47 -
Компьютерный вирус а заполняет 1гбайт за 1 месяц, вирус в заполняет...
valeriauzbekova19.04.2022 16:42 -
Учителя спросили сколько у него учеников в классе ? он ответил: у меня...
kakoieshonik02.05.2022 13:53 -
Монитор имеет «разрешение» 1200 на 1024 пикселя, и палитру 32 цвета....
ifj2ifvjw13.06.2021 10:07 -
Выполни действие и запиши верный ответ. 28mod5=...
kerikmr104.08.2020 01:17 -
100+9400=11900+600= 300*(16*12)-7099= 1000-700*50: 1000= 190*5: 10+11005=...
husravh32319.04.2021 13:01 -
Дан массив из 10 элементов,которые заполняются случайным образом.найти:...
Амбрела12328.04.2021 21:51 -
100+9400=11900+600= 300*(16*12)-7099= 1000-700*50: 1000= 190*5: 10+11005=...
anuaribragimov123.02.2020 20:51 -
D: /программы /игры/квесты.сначала он поднялся на один уровень вверх,...
eldaryuldashev01.12.2021 18:06 -
Впоезде 8 одинаковых вагонов по 62 посадочных места в каждом вагоне....
38067494418322.03.2020 11:13