Предмет: Информатика, автор: anastasiyako

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

Ответы

Автор ответа: m0nclous
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.
Похожие вопросы
Предмет: Английский язык, автор: kryt53535636363
Предмет: Қазақ тiлi, автор: ruslanerkinuli2002