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

Question

Информатика

Фард

29 июня, 09:31

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

+2

Ответы (1)

Знаете ответ на вопрос?

Гызмал · Answer 1

var

i, sum, n, x:integer;

Begin

sum: = 0;

readln (n) ;

for i:=1 to n do begin

readln (x) ;

if (x mod 7 = 0) and (x mod 5 = 0) then

sum:=sum+x;

end;

writeln (sum) ;

End.