Напишите программу пожалуйста В последовательности натуральных чисел определить сумму...

Question

Напишите программу пожалуйста
В последовательности натуральных чисел определить сумму чисел кратных 5

Answer 1

Будем считать последовательность натуральных чисел такую:
1,2,3,4 .. n-1,n
Тогда программа может быть такой:

var
  i, s, n: integer;

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