Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 21
1

Определите, какую часть от времени нахождения на территории выставки они потратили на посещение павильонов двух стран

13.03.2018, 08:08. Просмотров 841. Ответов 1
Метки нет (Все метки)


Данат и Амиржан побывали на Международной выставке ЭКСПО-2017. В павильоне Германии они были a/b часть всего времени нахождения, а в павильоне Австрии c/d части всего времени. Определите, какую часть от времени нахождения на территории выставки они потратили на посещение павильонов этих двух стран. Ответ запишите в виде несократимой дроби.

Формат входных данных
Вводятся четыре натуральных числа a, b, c и d, не превосходящие 10000.


Формат результата

Вывести два натуральных числа x и y через пробел таких, что дробь x/y – несократима и x/y = a/b + c/d.

Примеры
Входные данные Результат работы
3 8 1 4 / 5 8



2 8 3 12 / 1 2
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2018, 08:08
Ответы с готовыми решениями:

Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат
Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале...

Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат.
Помогите пожалуйста решить) Заданы координаты двух точек. Определите, лежат ли они на одной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
13.03.2018, 13:39 2
Лучший ответ Сообщение было отмечено Мадина22 как решение

Решение

так что-ли?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  a,b,c,d,e,f,i:longint;
begin
  readln(a,b,c,d);
  e:=a*d+c*b;
  f:=b*d;
  i:=2;
  repeat
    while (e mod i=0) and (f mod i=0) do begin
      e:=e div i;
      f:=f div i;
    end;
    i:=i+1;  
  until (i>e) or (i>f);   
  writeln(e,' ',f);
end.
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.