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

Задача 23.

Вычислить наибольший общий делитель двух натуральных чисел А и В.

program E6;
  var a, b: integer;
begin
  write ('введите два натуральных числа');
  readln (a, b);
  while a<>b do
    if a>b then a: = a - b
    else b: = b - a;
  write ('НОД = ', a);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru