Вычислить сумму всех чисел кратных 5 в диапазоне [0;n] где целое число n больше 10 и водится с клавиатуры

Question

Вычислить сумму всех чисел кратных 5 в диапазоне [0;n] где целое число n>10 и водится с клавиатуры

Гость

Ответ(ы) на вопрос:

Гость

var i,n:integer; begin readln(n); k:=5; for i:= 0 to n if (i mod 5=0) then k:=k+i; writeln(k); end.

Accepted Answer

пусть ввели x i = 5; цикл{ если i < x то выводим i и увеличиваем i на 5 иначе конец }