Question

(Паскаль) Найти количество чисел, кратных 4, в диапазоне от A до B
(В циклах while и repeat)

Answer 1

// разделите на две программы или закомментируйте ненужную часть

//-----------------------------

program LoopWhile;

begin

 var (a, b) := ReadInteger2();

 var Count := 0;

 while a <= b do

 begin

   if a mod 4 = 0 then

     Count += 1;

   a += 1

 end;

 Write(Count);

end.

//-----------------------------

program LoopRepeat;

begin

 var (a, b) := ReadInteger2();

 var Count := 0;

 repeat

   if a mod 4 = 0 then

     Count += 1;

   a += 1

 until a > b;

 Write(Count);

end.

Answer 2

Бонус код

Answer 3

function Rec(a, b: integer): integer;

function Rec_(a: integer): integer;
begin
if a <= b then
if a mod 4 = 0 then
Result += 1 + Rec_(a + 1)
else
Result += Rec_(a + 1)
end;

begin
Result := Rec_(a)
end;

begin
var (a, b) := ReadInteger2();
Write(Rec(a, b))
end.