Информатика 2 года назад мит11

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

Ответ

antodanil

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

иначе конец
}

мит11: модно по подробнее

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

мит11: программа поскаль

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

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

Ответ

vlakar

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.