(Паскаль) Найти количество чисел, кратных 4, в диапазоне от A до B
(В циклах while и repeat)
Ответы на вопрос
Ответил iolandavalerypad353
0
// разделите на две программы или закомментируйте ненужную часть
//-----------------------------
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.
Ответил iolandavalerypad353
0
Бонус код
Ответил iolandavalerypad353
0
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.
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.
Новые вопросы