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

френки9 френки9    1   27.07.2019 13:10    0

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

иначе конец 
}
ПОКАЗАТЬ ОТВЕТЫ
ruslanantosyuk1 ruslanantosyuk1  19.08.2020 18:23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика