Написать программу, сокращающую обыкновенные дроби. числитель и знаменатель вводятся с клавиатуры. в программе использовать цикл с постусловием. пример. вводятся числа: 10 15 результат: 2 / 3
var i,x,y:integer; b:boolean; begin readln(x,y); for i:=2 to x do if (x div i=x/i) and (y div i=y/i) then begin x:=x div i; y:=y div i; end; writeln(x,' ',y); end.
var i,x,y:integer;
b:boolean;
begin
readln(x,y);
for i:=2 to x do
if (x div i=x/i) and (y div i=y/i) then begin
x:=x div i;
y:=y div i;
end;
writeln(x,' ',y);
end.