Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

Question

Информатика

Прокл

21 октября, 15:29

Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

+1

Ответы (1)

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

Созон · Answer 1

Var

i, n:integer;

Begin

for i: = 1 to 119 do

if (i mod 5) = 0 then

n:=n+i;

Write ('Сумма положительных кратных 5 чисел, меньших 120 равна ', n) ;

End.

И вопрос - вы действительно 1-4 класс?