Программа для нахождения НОД чисел

Программа для нахождения НОД чисел

Исходник программы, задача которой - нахождение наибольшего общего делителя (НОД или Алгоритм Евклида) для двух, введённых с клавиатуры чисел. Используется цикл WHILE, есть пояснительные комментарии ко всем важным строкам программы. Скачать исходник просмотреть исходный код программы можно ниже.

Исходный код программы:


var a,b,c: integer; //Описание переменных
begin //Начало программы
  writeln('Введите a,b: '); //Диалог с пользователем
  read(a,b);  //Чистывание чисел
  while b<>0 do //Вход в цикл while, пока b не равно 0
  begin
    c := a mod b; //Присваивание с остатка деления a/b
    a := b; 
    b := c;
  end;
  writeln('Наибольший Общий Делитель = ',a); //Вывод делителя
end.//конец программы


Скачать: nod.pas
Дата: 2012-04-07 18:52:48   Просмотров: 47593

Теги: Паскаль исходник Pascal WHILE циклы