как найти сумму чисел кратных 7 от 1 до n включительно

Question

Информатика

Евдуша

10 июля, 16:33

как найти сумму чисел кратных 7 от 1 до n включительно

+1

Ответы (1)

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

Арсеньюшка · Answer 1

Program gt;

var n, s, i:integer;

begin

read (N) ;

s:=0;

for i:=1 to n do

begin

if (i mod 7=0) then s:=s+i;

end;

writeln ('сумма чисел кратных 7=', s) ;

end.

mod-это остаток от деления n на 7

если остаток равно 0 значит это число нацело делится на 7