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

0 голосов
53 просмотров

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


Информатика (12 баллов) | 53 просмотров
0

какой язык?

Дан 1 ответ
0 голосов

var a,i,k,sum:integer;

begin

read(a);

for i:=1 to a do begin

read(k);

if(k mod 3 =0)and(k

end;

write(sum);

end.

(66 баллов)