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

Question

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

Answer 1

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.

Answer 2

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

иначе конец 
}

Comments

модно по подробнее

---

тебе на чем писать надо?

---

программа поскаль

---

короче что мы ввели делим на 5 без отсатка

---

потом делаем for i от 1 до что мы ввели делим на 5 без отсатка
sum = sum + 5 *i