Question

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

Answer 1

Var a,b,c: integer;
begin
write('Введите a:');
readln(a);
write('Введите b:');
readln(b);
write('Введите c:');
readln(c);
for var i:= 2 to min(min(a,b),c) do
begin
if (a mod i = 0) and (b mod i = 0) and (c mod i = 0) then
begin
writeln('НОК для ',a,' ',b,' ',c,' равен : ',i);
break;
end
else
begin
writeln('для ',a,' ',b,' ',c,' не существует НОК');
break;
end
end
end.