Напишите программку,которая для последовательности естественных чисел выводит сумму всех

Напишите программку,которая для последовательности естественных чисел выводит сумму всех входящих в последовательность чисел,кратных 3 и при этом наименьших 150.Программка получает на вход количество чисел в последовательности,а потом сами числа.
Количество чисел не превосходит 100.Введённые числа не превосходят 300.
Программка обязана вывести одно число-сумму вех входящих в последовательность чисел,кратных 3 и при этом наименьших 150.
Входные данные:
3
33
6
270
выходные данные
42

Задать свой вопрос
Кирилл Лозько
какой язык?
1 ответ

var a,i,k,sum:integer;

begin

read(a);

for i:=1 to a do begin

read(k);

if(k mod 3 =0)and(klt;150)then sum:=sum+k;

end;

write(sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт