Главное меню  

   

Авторизация  

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


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


   

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

Записи

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

Найти наименьшее общее кратное двух натуральных чисел. Паскаль ABC

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

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

Формулировка. Даны два натуральных числа. Найти их наименьшее общее кратное.

Примечание: наименьшим общим кратным двух чисел m и n называется наименьшее натуральное число, которое делится на m и n. Обозначение: НОК(m, n)

var M,N,nok: integer;
begin
readln(M,N);
nok:=m*n;//вычисляем произведение до входа в цикл
while M<>N do //проверяем числа на неравенство
begin
if M>N then// выбираем большее число
M:=M-N //находим наибольший общий делитель
else
N:=N-M
end;
writeln (nok div M)//с момощью оператора div (целочисленное деление) находим НОК
end.

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

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


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

   
© 2012 fordus.