Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
СофияСтепанова
13.11.2020 20:19 •
Информатика
Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.
Показать ответ
Ответ:
Hyina
09.08.2020 17:23
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Srednov
13.02.2022 20:00
Тест 3 два одинаковых сервера за 5 секунд могут обрабатывать 5 миллионов запросов от пользователей. сколько миллионов запросов могут обработать 9 таких сервера за 9 секунды?...
sofialipnitscka
04.05.2023 21:59
Напишите программу, которая в последовательности натуральных чисел определяет определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные...
Dragnil29
31.05.2020 02:07
построить блок схему к задаче. указать тип алгоритма, что дано и что нужно найти. даны числа a1, a2, a3...a10. определить их сумму...
DemonDogs
16.01.2023 15:42
Каким можно задать многострочный комментарий в языке с++ Логическое выражение возвращать результат типа...
ponhik4
03.09.2020 20:02
Определите информационный объем сообщения «В 1948 году Клод Шеннон впервые предложил ввести понятие бит ».2) Текст занимает ¼ килобайт памяти компьютера. Вычислите, сколько...
gasdgg
13.10.2021 06:12
Жауаптары керек,бар ма?...
КсюшаАнтропова
04.12.2021 10:36
Подсчитайте количество страниц в учебнике(их143) и вычесли его объём!...
Vasyliev
03.01.2020 01:08
Сторона квадрата равна 3 см. точка, равноудаленная от всех вершин квадрата находится на расстоянии 4 см от пересечения его диагоналей. найти расстояние от этой точки до вершин...
irkorwp0dj0n
30.10.2022 00:46
A(x+y)+2b(x+y) вынести за скобки общ. множитель и разложить на множители...
srednenorm
03.06.2020 08:16
Из 12 одинаковых проволочек, сопротивлением r=2 ом каждая, спаян куб. какая мощность p ac (вт) выделится в ветви ac ( она выделена красным), если между точками a и b приложено...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.