Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 29.

Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел.

{Для решения данной задачи воспользуемся циклом с постусловием:}

program prim3;
  uses crt;
  var x, y: integer;
begin
  clrscr;
{Вводим два целых неотрицательных числа.}
  writeln('x:=,y: = ');readln(x,y);
  repeat
    if x>y then x:=x mod у else y:=y mod x;
{До тех пор, пока одно из чисел не станет равно нулю.}
  until (x=0) Or (y=0);
{Вывод НОД - без условного оператора, так как одно из чисел равно нулю.}
  writeln('HOД=',x+y));
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100