Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120
Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы