Question

Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)

Answer 1

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.

 

Вопросы в ЛС