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

Question

Риммушка

27 октября, 21:55

+1

Ответы (2)

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

Петюха · Answer 1

Пусть ввели x

i = 5;

цикл{

если i < x то выводим i

и увеличиваем i на 5

иначе конец

}

Исаак · Answer 2

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.