Ответы
Ответ дал:
2
Ответ:
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.
emmaren:
Это точно правильно? У кого-то проверили?
Вас заинтересует
4 месяца назад
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад