Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
gmurzakaevap06yh1
11.08.2020 13:17 •
Информатика
(паскаль авс): среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу а, а само число при делении на 4 дает остаток 3.
Показать ответ
Ответ:
ПрофессиАНАЛ
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 оценок)
Популярные вопросы: Информатика
milanareemets
28.05.2021 20:40
Вычислите значение функции y=x^3-x^2+16x-43 для x изменяющегося в диапазоне от-4 до 4 включительно с шагом 0.5. нужно написать на паскале...
Stebnevaalina346
13.01.2022 08:12
Устройство ввода используемое для компьютером во время игры 8 букв...
VolkYula69
25.07.2020 12:57
Устройство ввода используемое для компьютером во время игры 8 букв...
kochergaki2000
12.06.2021 00:21
если ключевое слово: модель. Расшифруйте текст, зашифрованнsй шифром перестановки. ....
Makcuм
12.06.2021 00:21
По фрагменту программы составить трассировочную таблицу const n = 5; a: array [1..n] of integer = (5, -8, 15, 15, -8);var i, b, c: integer;begin b := a[1]; c := 1; for i :=...
lyubimuchkaozd15q
09.06.2021 06:44
Что такое Else в питоне. Только НЕ кратко...
iavonova15
15.04.2021 01:18
Вакционерном обществе: а) находится в руках акционеров б) единственным собственником является совет директоров с) нет необходимости публиковать результаты хозяйственной деятельности...
nazarstepanov2
15.09.2022 18:46
Put each of the following verbs in the correct space in the passage. bring up, leave, settle down, educate, move, join, come from, grow up, club become interviewer: freddie,...
12345qwertgechjih
16.02.2020 00:03
Определить основную тему и найти эпитеты, метафоры, олицетворения стихотворения тютчева лисья ! сам стих: пусть сосны и ели всю зиму торчат, в снега и метели закутавшись, спят,...
Mariaglu2
18.03.2020 05:20
Какие трудности связанные с принятием ребенка в семью могут возникнуть в семье?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.