Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


52.1%Russian Federation Russian Federation
21.1%Ukraine Ukraine
16%United States United States
1.9%Belarus Belarus
1.2%Romania Romania
1.1%United Kingdom United Kingdom
0.9%Czech Republic Czech Republic
0.9%Kazakhstan Kazakhstan
0.6%Kuwait Kuwait
0.6%Republic Of Moldova Republic Of Moldova

Сегодня: 8
Вчера: 311
На этой неделе: 619
На прошлой неделе: 1872
В этом месяце: 3246
В прошлом месяце: 8478
Всего: 25455


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Нахождение наибольшего общего делителя трех чисел. Паскаль ABC

Добавлено : Дата: в разделе: Прикладная информатика

Задание: Составить программу нахождения наибольшего общего делителя трех чисел, используя формулу: НОД(A,B,C)=НОД(НОД(A,B,C).

Решение:

var a, b, c:integer;
begin
readln(a,b,c);
write('НОД(', a, ', ', b, ', ', c, ') = ');
while (a <> 0) and (b <> 0) do
if a > b then
a := a mod b
else
b := b mod a;
a := a + b;
while (c <> 0) and (a <> 0) do
if a > c then
a := a mod c
else
c := c mod a;
writeln(a + c);
end.

Редактировалось Дата:

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.