Регистрация
vitalina05062005
11.09.2022 04:14
Информатика
Есть ответ 👍

Укажите номера натрурных и информационных моделей

193
222
Посмотреть ответы 1

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

Таня5463
Таня5463
4,6(25 оценок)
Var       a, b, c: longint; function nod(a, b: longint): longint; begin       a : = abs(a);       b : = abs(b);       if a * b = 0 then nod : = 1       else begin               while a < > b do                       if a > b then                               a : = a - b                       else                               b : = b - a;               nod : = a;       end; end; begin       read(a, b, c);       writeln(nod(nod(a, b), c)); end.

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