Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Нурай231
21.10.2020 19:37 •
Информатика
(паскаль авс): среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу а, а само число при делении на 4 дает остаток 3.
Показать ответ
Ответ:
rada182
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 оценок)
Популярные вопросы: Информатика
Tuchka2oo5
28.08.2020 14:03
Придумайте оригинальную тему (можно несколько) для проекта 11 класса по информатике. тема должна интересовать вас и аудиторию 16-18 лет. тема может быть связана с: -программированием...
loko177
19.09.2021 05:18
Сформировать массив содержащий 15 случайных целых чисел, принадлежащих промежутку [0; 8] и преобразовать элементы массива по следующему правилу: к четному прибавить 1, а нечетное...
katya8631
19.09.2021 05:18
1. сформировать внутреннюю и внешнюю файл-функцию. //задан одномерный массив,вывести на печать все элементы, которые равны первому. const n=5; var a: array[1..n] of integer; i: integer;...
camaroSSdodge
09.07.2021 16:50
Между населёнными пунктами A, B, C, D, E, F, G построены дороги, протяжённость которых приведена в таблице (отсутствие числа в таблице означает, что прямой дороги между пунктами нет)....
allanazarova12
26.11.2022 11:31
Выберите основные функции операционной системы. Выберите 4 верных ответа. Верных ответов: 4 Загружает и запускает программные приложения Управляет ресурсами компыютера Исправляет...
nalininegi
01.06.2020 14:16
Каждая буква фрагмента известного стихотворения Ф.И. Тютчева заменена некоторой буквой так, что разным буквам соответствуют разные буквы, а одинаковым - одинаковые. Пробелы и знаки...
lilitabraamyan
13.10.2020 14:01
Напишите условие на языке программирования Python для решения задачи...
kabilet777
31.01.2023 09:44
Петя скачивал файл со скоростью 218 бит/с, а затем передавал его Ване со скоростью 220 бит/с. На скачивание файла Петя потратил 5 секунд. Сколько секунд заняла передача файла...
maryclarly
03.08.2022 07:28
Смысл поговорки «только тому почёт будет, кто родину не на словах, а делом любит»...
yaroslavpilip
28.05.2020 23:09
умоляю, это по истории задание...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.