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

Question

Информатика

Рипа

23 сентября, 03:09

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

+4

Ответы (1)

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

Иван · 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.