Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
000StalGuy0001
16.06.2020 22:09 •
Информатика
Скласти програму знаходження суми цілих додатних чисел кратних 4 і менше 50
Показать ответ
Ответ:
vipborisov200
22.06.2020 12:21
Program Zadacha;
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Gbr330
05.07.2021 04:38
Ввести натуральное число и определить, какие цифры встречаются несколько раз.(турбо паскаль)...
nurik01viper
14.02.2021 13:57
Задание 1 Во Сколько байт оперативной памяти будет занимать описанный массив? t: array [1..80] of boolean; Выберите один из 4 вариантов ответа: 1) 160 2) 10 3) 0 4) 80...
Jane110509
08.03.2022 03:06
Определи допустимые в Python имена переменных: * Допустимо Недопустимо 2x abc1 x 1 summa_chisel...
ывцым
29.10.2020 17:32
Монтаж видео Определи видеоэффекты, создающие зеркальное отображение оригинального кадра.Верных ответов: 2«Поворот на 270 °,«Поворот на 360 °»«Поворот на 90 °»«Поворот...
vannik78
08.04.2020 15:30
Заполни схему в тетради. Запиши три режима работы гироскопического датчика.Режимы программного блокагироскопического датчика...
makssaulin
24.11.2021 01:35
Сообщение, написанное буквами из 16-символьного алфавита, содержит 50 символов. какой объём информации оно несёт?...
marsik261
01.05.2022 09:11
Вместо множества точек записывайте необходимые слова и дополняйте предложения. қазақ халқы түйені деген.түйенің қайнатып, пайдаланған, ал ер қаптаған. ертеде сиырдың құқықтан...
Машасом1442
01.05.2022 09:11
Запишите 4 предложения с обращением,выраженными как неодушевлёнными существительными....
ordabaevabayan
01.05.2022 09:11
Что больше 0,49999999 или 1/49? ! нужно!...
kuleminaIV
01.05.2022 09:11
Разность первого и второго числа равна 2. разность первого и третьего равна 4. на сколько больше второе число, чем третье?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Const c = 4; max = 50;
Var a, b: Integer;
Begin
a := c;
While a < max Do
Begin
If a Mod c = 0 Then
b := b + a;
a := a + 1;
End;
WriteLn('Сума чисел, кратних ', c, ' і менше ', max, ' становить ', b);
ReadLn;
End.