Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
astafiev94
05.06.2021 16:16 •
Информатика
(паскаль авс): среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу а, а само число при делении на 4 дает остаток 3.
Показать ответ
Ответ:
virina059
19.08.2020 06:50
Var a,b,i,s1,s2,s3:integer;
begin;
readln(a);
for i:=100 to 999 do
begin;
b:=i;
s1:=b mod 10;
b:=b div 10;
s2:=b mod 10;
b:=b div 10;
s3:=b mod 10;
b:=b div 10;
if (i mod 4=3) and (s1+s2+s3=a) then writeln(i);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
luszdncsjmn
02.04.2020 15:48
Григорианском календаре года нумеруются числами 123 и так далее, это года «нашей эры». предшествующие года называются «первый год до нашей эры» «второй год до нашей...
Леся059
02.02.2020 18:11
Информатика 7 класс Информатика 7 класс...
Bollsav
02.02.2020 18:11
Дан набор полей: фамилия, имя, дата рождения, пол, образование, страна проживания, оклад, номер медицинского полиса, размер заработной платы, дата проведения соревнований,...
Adventurous
23.11.2021 13:23
Информационный объем изображения, сохраненного в файле как 6-разрядный рисунок, по сравнению с этим же изображением, сохраненным как 8-цветный рисунок. 1) Меньше...
kgrintsewi4
21.03.2022 13:50
Напишите программы в тетради, которые выводят на экран: «ответ: 15+16=31», «Скоро! 31 декабря будет праздник!», «18 16 98» (каждое высказывание тремя разными...
Lika46763
24.04.2020 05:33
Решить по информатике на языке бейсик. факториал числа. : f= n! -k!...
алеся678
11.07.2020 10:36
Порядок действий при абсолютной адресации....
tatgomer
01.10.2021 04:31
Соотнесите слова задаток и задатки с множественным числом....
dumbschoolkid
01.10.2021 04:31
Написать название картины к.моне, на 15 одноимённых картинах нарисовано одно и то же, чтобы показать, как падает свет в разное время суток и в разное время года....
Tusya007
01.10.2021 04:31
Алые паруса ,а.с.грин ! эгль понял, что ассоль живет в каперне, где не поют песен и не рассказывают сказок, новсе е рассказал ей чудесню сказку про алые паруса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
readln(a);
for i:=100 to 999 do
begin;
b:=i;
s1:=b mod 10;
b:=b div 10;
s2:=b mod 10;
b:=b div 10;
s3:=b mod 10;
b:=b div 10;
if (i mod 4=3) and (s1+s2+s3=a) then writeln(i);
end;
end.