Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
polly133
07.08.2022 03:39 •
Информатика
Написать программу, которая выводит сумму положительных и кратных трем чисел из вводимой с клавиатуры последовательности из 47 чисел.
Показать ответ
Ответ:
shapovalovalyubochka
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 оценок)
Популярные вопросы: Информатика
Руфлер
05.11.2022 22:48
Задание 3. Дано число Р. Если оно больше нуля, то вычислите куб числа Р. Если оно меньше нуля, прибавьте к нему число К. Если оно равно нулю, то нужно из него вычесть число...
Sveta0202
27.10.2021 04:41
Какой объем памяти необходим для хранения растрового изображения состоящего из 512 х 512 пикселей, если при этом использовалась палитра 256 цветов? Запишите дано, формулу,...
rozaMika
31.03.2022 13:00
Как перевести число 0,824 из десятичной системы счисления в двоичную ( до 5 знаков после запятой )? ответьте ! заранее !...
МАРИЯpahal
27.03.2023 14:05
15. установите последовательность развития трудовой деятельности людей: а) земледелие; б) охота; в) ремесло г) разделение труда...
MaTeMaTiKjjj
27.03.2023 14:05
Решите, 1)какую скорость имело тело в начале торможения, если оно остановилось за 10 с при ускорении 0,4 м/с^2? 2)уравнение скорости имеет вид: v=2-3t. найдите скорость...
женя1373
27.03.2023 14:05
Теннисист ударил по мячу, который взлетел вверх. его высоту в метрах над поверхностью земли через t секунд описывает функция h(t)=32t−4tво 2 1. на какую наибольшую высоту...
pavlikpanov200oyp9mu
27.03.2023 14:05
Один з ланцюгів днк містить нуклеотиди : ттг-гца-цгц-цат . якою буде послідовність нуклеотидів в іншому ланцюгу даного фрагмента днк?...
comet55
27.03.2023 14:05
5-7 предложений на тему победа добра над злом по сказке о мертвой царевне и семи богатыря...
SeetFatRed819
27.03.2023 14:05
Углерод-оксид углерода 4-карбонат калия-карбонат кальция-оксид углерода 4- гидрокарбонат кальция-карбонат кальция ! плохо разбираюсь в этом....
pashapasha12345
27.03.2023 14:05
Визумрудный город на праздник прибыли 48 жевунов 39 мигунов а болтунов на 29 меньше чем жевунов и мигунов вместе сколько болтунов прибыл на праздник в изумрудный город...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.