tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Среди четырёхзначных
Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15
ПЯTA4OK
3 29.05.2019 13:50
1
Ответы
D102006
28.06.2020 16:15
uses crt;
var i,s:integer;
begin
for i:=1000 to 9999 do
begin
s:=strtoint(inttostr(i)[1])+strtoint(inttostr(i)[2])+strtoint(inttostr(i)[3])+strtoint(inttostr(i)[4]);
if (s>15) and (s mod 3=0) then
write(i,' ');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
EvgeniyNou
19.04.2020 14:30
Где можно разместить диаграмму? 1) на специальном листе 2) на отдельном листе ms excel 3) переместить в ms word 4) на имеющимся листе ms excel...
ЗейнабАхундзаде
19.04.2020 14:55
3. Формула из ячейки Bi скопирована в диапазон ячеек гВ2:B3; формула из ячейки Ci скопирована в диапазон 1ячеек С2:c3. Чему после этого будут равны значения вячейках...
диана2473
19.04.2020 14:53
На механической клавиатуре me too zero у меня через раз начала срабатывать кнопка Ф, или же А английская, что мне сделать чтобы она работала как раньше, то в играх...
БадАнгелина
24.04.2020 14:45
В какой системе выполнено сложение? ...
Maльчик
24.04.2020 16:01
Дан массив BIM 24 11 35 7 18Запишите в таблице как будут располагаться элементы массива в процессе его сортировки по убыванию после каждой перестановки элементов...
markdanilov2002
24.04.2020 14:57
17. Средняя скорость передачи данных по некоторому каналу связи равна 28 800 бит /с. Сколько секунд потребуется для передачи по этому каналу связи цветного изображения...
MashaTears1
24.04.2020 14:57
Виктор освоил клавиатурный тренажер и может вводить текстовую информацию со скоростью 200 символов в минуту. Сколько времени ему потребуется чтобы ввести в память...
nata14batm1979
13.08.2019 12:10
Войдет ли в конверт размерами x см и y см прямоугольная открытка размерами к см и n см? написать программу : )...
денис9645
13.08.2019 12:10
Лист формата a4 имеет размеры 210х297 мм, формата а3 - 297х420 мм. лист формата а5 имеет...
Солі
08.04.2020 11:20
Написать наименьшее целое число х, для которого будет истеным высказывание.Не(х =15) и (х чётное) и не(х =8)...
Популярные вопросы
Найдите неизвестные стороны(в четвертом, 12- это вся сторона)...
3
Бірін-бірі қолдап қорғап жүретін,аға-ініге басымызды иелік тақырыбында...
2
Выберите все признаки группы Опистоконты. пластинчатые кристы...
1
ивт сделать 1 задания . Составьте программу, выводящую на экран...
3
Решить СОР ГЕОМЕТРИЯ 10 КЛАСС...
1
Найдите пересечения множеств ...
3
Замените выделенные обороты с союзным словом который на причастные...
1
883. Обратите обыкновенные дроби в десятичные и выполните действия...
2
Нужно сделать сор по химии. ваши. Нужны все задания....
1
Укажите валентность азота (N) N°7 в соединении NH3:1) lll2) ll3)...
1
var i,s:integer;
begin
for i:=1000 to 9999 do
begin
s:=strtoint(inttostr(i)[1])+strtoint(inttostr(i)[2])+strtoint(inttostr(i)[3])+strtoint(inttostr(i)[4]);
if (s>15) and (s mod 3=0) then
write(i,' ');
end;
end.