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

Question

Информатика

Корнеич

22 февраля, 19:19

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

+5

Ответы (1)

Знаешь ответ?

Аксинья · Answer 1

var a, b, i, s:integer;

begin

readln (a, b);

if a>b then begin s:=a; a:=b; b:=s; end;

s:=0;

for i:=a to b do

if (i>0) and (i mod 4=0) then s:=s+i;

writeln ('s = ', s);

end.

Пример:

30 - 10

s = 112