Икт Найти сумму чисел кратных 5 в интервале 1 до n

Question

Информатика

Володюка

29 января, 23:41

Икт Найти сумму чисел кратных 5 в интервале 1 до n

+2

Ответы (1)

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

Ирина · Answer 1

Program gt;

var a:array[1 ... 1000]of integer;

i, s, n:integer;

begin

read (n) ;

s:=0;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i] mod 5=0) then s:=s+a[i];

end;

writeln (s) ;

end.