Главное меню  

   

Авторизация  

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


49.9%Russian Federation Russian Federation
24.5%Ukraine Ukraine
14.6%United States United States
1.9%Belarus Belarus
1.1%Romania Romania
0.8%Kazakhstan Kazakhstan
0.8%Czech Republic Czech Republic
0.7%United Kingdom United Kingdom
0.6%Republic Of Moldova Republic Of Moldova
0.6%Kuwait Kuwait

Сегодня: 46
Вчера: 315
На этой неделе: 1912
На прошлой неделе: 2232
В этом месяце: 6384
В прошлом месяце: 6131
Всего: 19365


   

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

Записи

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

Программирование с использованием подпрограмм

Добавлено : Дата: в разделе: 10 класс

1. Составить программу нахождения наибольшего общего делителя (НОД) и наменьшего общего кратного (НОК) двух натуральных чисел НОК(А,В)=A*B/НОД(A,B)

Решение:

program Nod_n_Nok;
var a, b : longint;
function nod(a, b : longint) : longint;//функция

begin
if a = b then
nod := a
else if a > b then
nod := nod(b, a - b)
else
nod := nod(a, b - a)
end;
function nok(a, b : longint) : longint;//функция
begin
nok := ( a * b ) div nod(a, b);
end;
begin
while TRUE do begin
write('A = ');
readln(a);
if a < 1 then
break; //прекращение цикла
write('B = ');
readln(b);
if b < 1 then
break;//прекращение цикла
writeln('NOD: ', nod(a,b), '; NOK: ', nok(a, b));
end
end.

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

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


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

   
© 2012 fordus.