Пожалуй самая интересная программа которую я тут решал - спасибо! :)
Код:
var i,x,y,ymax,xmax,max,:integer;
begin
writeln('введите числа');
write('x='); readln(x);
write('y='); readln(y);
for i:=1 to x do begin
if (x mod i)=0 then xmax:=i;
if (y mod i)=0 then ymax:=i;
if xmax=ymax then max:=ymax;
end;
writeln('наибольший общий делитель =',max);
end.
Пример работы:
введите числа
x=99
y=33
наибольший общий делитель =33