Предмет: Информатика,
автор: anastasiyako
Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) в паскале.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Физика,
автор: nastinka606
Предмет: Английский язык,
автор: kryt53535636363
Предмет: Қазақ тiлi,
автор: ruslanerkinuli2002
Предмет: Алгебра,
автор: TimOne96
Предмет: История,
автор: Sasha1048