Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
Ответы
Ответ дал:
0
var A,B,i,sum:integer;
begin
read(A,B);
sum:=0;
for i:=A to B do
if i mod 4 = 0 then sum:=sum+i;
writeln(sum);
end.
Вопросы в ЛС
Вас заинтересует
9 лет назад
9 лет назад
9 лет назад
9 лет назад