Найти сумму всех натуральных чисел кратных 5. Информатика. Паскаль.

Question

Найти сумму всех натуральных чисел кратных 5. Информатика. Паскаль.

Answer 1

Var
  i, sum, N: integer;

begin
sum:=0;
  Write('Введите диапазон чисел (1..N): ');
  readln(N);
  for i:=1 to N do if i mod 5=0 then sum:=sum+i;
  writeln('Сумма всех натуральных чисел, кратных 5-ти, в диапазоне от 1 до ',N,' = ',sum);
end.