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

Question

Информатика

Лиана

6 марта, 10:04

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

+5

Ответы (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.