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

Ответы 1

  • var i,x,y:integer;b:boolean;beginreadln(x,y);for i:=2 to x doif (x div i=x/i) and (y div i=y/i) then beginx:=x div i;y:=y div i;end;writeln(x,' ',y);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years