Написать программу, сокращающую обыкновенные дроби. Числитель и знаменатель вводятся с клавиатуры. В программе использовать цикл с постусловием. Пример. вводятся числа: 10 15 результат: 2 / 3

Question

Информатика

Тимур

8 августа, 11:29

Написать программу, сокращающую обыкновенные дроби. Числитель и знаменатель вводятся с клавиатуры. В программе использовать цикл с постусловием. Пример. вводятся числа: 10 15 результат: 2 / 3

+2

Ответы (1)

Знаете ответ?

Таша · Answer 1

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.