Найти наименьшее общее кратное двух чисел а и в.
Kam54
3
16.10.2019 13:05
0
Другие вопросы по теме Информатика
Tana1369
03.04.2021 19:53
konstontinopols
30.08.2019 10:38
aylincik930
30.08.2019 10:20
Валерия003322
30.08.2019 12:10
sebinavala1997
02.04.2021 07:04
даша3649
02.04.2021 07:00
alex0the0human
02.04.2021 06:56
АлексаСветлая
11.02.2021 17:22
sergijkorovonko
28.07.2019 06:30
a24027679
28.07.2019 06:30
Популярные вопросы
- Словосочетания с с уменьшительно-ласкательными суффиксами. 10...
2 - Вкаком из городов выпускаются бронетранспортеры?...
1 - Какова роль буквы ь в с словах ночь пишешь бьют конь...
1 - Сумма двух чисел равна 352.одно из этих чисел оканчивается на...
3 - Заполните пропуски,используя глагол don t или doesn t. 1) her...
3 - Дайте характеристику элемента с зарядом 6 четверт контроль...
1 - Составить слово из l, i, i, d, q, u...
2 - Согласен ли ты, что с человек черствеет, если в нем не остается...
3 - Титул великого княза кем был принят...
1 - Один из четырех углов,образовавшихся при пересечении двух прямых,...
3
program Nok;
var
a, b, i: Integer;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a < b then
i := a
else
i := b;
repeat
Inc (i);
until (i mod a = 0) and (i mod b = 0);
WriteLn ('НОК = ', i);
ReadLn;
end.