Найдите наибольший общий делитель двух чисел

Question

Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) впаскале.

Answer 1

66

mcsimka

20 февраля 2023

Var a, b, answer: integer; function gcd (m, n: integer): integer; var modulo: integer; begin modulo: =m mod n; if modulo=0 then gcd: =n else gcd: =gcd (n, modulo) end; begin write ('Введите 2 числа: '); readln (a, b); answer: =gcd (a, b); writeln ('Наибольший общий делитель: ', answer); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: