Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B 0; НОД(A, 0) = A, где «mod» обозначает операцию взятия остатка от деления

Категория: Delphi/Pascal
2013-02-10 21:50:28
code: #pascal
program while23;
uses crt;
var
  a, b, x, y: integer;
begin 
  clrscr;
  writeln ('Введите число а ');
  readln (a);
  writeln('Введите число b ');
  readln(b);
  x:=a;
  y:=b;
While a <> b do
  if a > b then 
    a:=a-b
  else 
    b:=b-a;
  writeln ('НОД ',a);
  readln;
end.

автор: Oleg Voloshin

Поделиться:

Похожие статьи:

теги: цикл, общий делитель