Регистрация
нэла1
17.02.2021 19:55
Информатика
Есть ответ 👍

Выполните задание по системе счисления ABAD16 x8 halp please ​

246
254
Посмотреть ответы 1

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

Islami1
Islami1
4,5(82 оценок)

var  a, b: integer; begin  write('a = '); readln(a);   write('b = '); readln(b);   while (a < > 0) and (b < > 0) do      if a > = b then          a : = a mod b      else          b : = b mod a;   a : = a + b;   if a = 1 then

      writeln('числа являются взаимнопростыми' )

  else

      writeln('числа не являются взаимнопростыми' )end.

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