как решить садачу в turbo paskal. Числа a и b найти самое маленькое общий знаменатель .

Question

Pain · Accepted Answer

Общий знаменатель можно найти только для двух обыкновенных дробей. То есть для 4-х чисел. А у тебя только 2.

Ольга · Answer

program n; 
uses crt; 
var a,b:longint; 
 
function NOD(x,y:longint):longint; 
begin 
if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y; 
end; 
 
Begin 
Clrscr; 
Writeln('Введите a и b: '); 
Write('a = '); Readln(a); 
Write('b = '); Readln(b); 
Writeln('НОД ',a,' и ',b,' = ', NOD(a,b)); 
Readkey; 
End.