Регистрация
артем777тема
10.05.2022 08:52
Информатика
Есть ответ 👍

сделайте 3 и много дать не могу так как потратила ,но если есть добрые люди то сохрани вас бог

272
495
Посмотреть ответы 1

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

kategorn1
kategorn1
4,4(13 оценок)
//pascal abc.net v3.1 сборка 1172 var   a, b, nod: integer; begin   read(a, b);   while a * b < > 0 do       if a > b then a : = a mod b       else b : = b mod a;   nod : = a + b;   writeln(nod); end. пример ввода: 1071 462 пример вывода: 21

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