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

Question

Информатика

Машута

8 сентября, 09:39

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

+4

Ответы (1)

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

Радость · Answer 1

var n, i, s, a: integer;

begin

readln (n) ;

s:=0;

for i:=1 to n do begin

readln (a) ;

if (a div 7 0) and (a mod 10 = 3) then

s:=s+a;

end;

writeln (s) ;

end.