Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
rusikov972
11.08.2022 17:46 •
Информатика
Напишите программу которая выводит сумму всех чисел кратных 8 и больших 40
Ответ:
Soniasizova
08.10.2020 16:45
PascalABC.NET
Версия 3.3.5 Сборка 1662 (29.04.2018)
var n, i, a, sum : integer;
begin
readLn(n);
sum := 0;
for i :=0 to n do
begin
readLn(a);
if (a mod 8 = 0) and (a > 40) then
begin
sum := sum+a;
end
end;
writeLn(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
приветядима
26.10.2022 19:05
Целью моделирования является: а. сохранить и передать информацию об изучаемом объекте б. показать, как будет выглядеть объект, которого еще нет в. изучить или испытать на модели...
ира1014
16.07.2020 06:50
Ветвления уровень a. ввести три целых числа, найти максимальное из них. пример: введите три целых числа: 1 5 4 максимальное число 5 уровень b. ввести пять целых чисел, найти максимальное...
zana06191
16.07.2020 06:50
Нужно зарание ! вопрос№1 * зная,что каждому числу соответствует буква алфавита с таким же порядковым номером, расшифруйте следующее сообщение: 12-21-12-21-26-12-1 12-21-12-21-26-16-15-12-21...
Julydd
31.08.2021 13:29
Нарисовать квадрат в квадрате в квадрате(как на фото) на С++ с подробным описанием. Дополнительное условие: Задано квадратную матрицу, все элементы которой равны единице. написать...
Artem0317q
14.01.2020 11:42
У исполнителя Гамма две команды, которым присвоены номера: 1. прибавь 3; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Гамма увеличивает число...
ванька68
15.02.2022 21:33
с решением: 1)Создайте массив из всех нечётных чисел от 1 до 99, выведите его на экран в строку, а затем этот же массив выведите на экран тоже в строку, но в обратном порядке...
3667
03.04.2022 22:40
с информатикой быстро, заранее...
Серыйпрайм
25.01.2022 00:22
Все 5-буквенные слова, составленные из букв Л, Н, Р, Т, записаны в алфавитном порядке. Вот начало списка: 1. 2. Н 3. Р 4. Т 5. ЛЛЛНЛ Запишите слово, которое стоит на 150-м месте...
Батыр100
07.08.2021 12:57
1. Определить объем информации состоящей из 35 символов, написанной на алфавите из 74 символов 2. Определить минимальное количество задаваемых во для угадывания числа от 600 до...
микадо1
22.10.2022 08:36
Пользователь вводит номер месяца, программа выводит название сезонанапример пользователь вводит 5 - программа ввводит-весна(Паскаль)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Версия 3.3.5 Сборка 1662 (29.04.2018)
var n, i, a, sum : integer;
begin
readLn(n);
sum := 0;
for i :=0 to n do
begin
readLn(a);
if (a mod 8 = 0) and (a > 40) then
begin
sum := sum+a;
end
end;
writeLn(sum);
end.