Регистрация
Topolok121289
30.09.2021 14:08
Информатика
Есть ответ 👍

Реализуйте в кодах учебной ЭВМ подсчет четных чисел в диапазоне от 1 до 100, результат вывести в выходной регистр

119
171
Посмотреть ответы 1

Ответы на вопрос:

dhvcn
dhvcn
4,4(39 оценок)

Pascal ABC.

Код:

var

  a, b: integer;

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

begin

    if (a = b)

    then

        sko := 1

    else begin

         if a < b then

            b := b - a

         else

             a := a - b;

         sko := 1 + sko(a, b);

    end;

end;

begin

    readln(a, b);

    writeln(  sko(a, b)   );

end.

Пример действия:

Ввод:

5 4

Вывод:

5

Популярно: Информатика