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

Question

Информатика

Олежка

3 ноября, 02:16

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

+2

Ответы (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