tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Даны натуральные числа a и b,
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие (программа Паскаль)
помогите1170
3 16.04.2019 23:00
6
Ответы
russianbutcher2
16.04.2019 23:00
program z1;
uses crt;
var a,b,m,n:integer; p,q: real;
begin
read (a,b);
m:=a; n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
p:= a/m;
q:= b/m;
writeln(p,'/',q);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
VanekPhantom
17.05.2021 19:53
Считается ли катание на гироскуторе видом спорта?...
ладнобудеттакойник
17.05.2021 19:53
Що зробити щоб школа згоріла ...
Ivanova567
17.05.2021 19:51
Что человеку поддерживать психическое равновесие ...
Мафаняяя
03.11.2019 23:59
Для каких целей используется почтовый адрес и адрес ...
Lenazakhozhenk
03.11.2019 23:53
Что может расслабить как снюс, только безобидное ...
shm06
03.11.2019 23:39
Подскажите ,поступая в университет мвд в питере,я бы хотела узнать на какой факультет нужно поступить чтобы стать,выучиться инспектором по делам несовершеннолетних? ...
IndiAkent
03.11.2019 23:28
Почему остров исландия возник в середине атлантического океана...
АлёнаКож
14.05.2021 12:28
СОЦИОЛОГИЯ!! Можно ли рассматривать корпоративную культуру компании как институт социализации?Обоснованный ответ...
GeorgHimik2005
14.05.2021 12:29
Черчение. Выполнить 3 вида...
ефим30
13.03.2021 16:32
Сопряжение прямого угла(90°) радиусом20 это черчение...
Популярные вопросы
Найдите образные средства...
3
З двох міст, відстань між якими 700 км, вийшли назустріч один одному два...
1
4- 5 речення про фрукт персик...
2
За 6 часов сомолёт пролетает тоже токое расстояние что и поезд прощает...
1
ответь на вопрос: Для чего же физики всего мира должны пользоваться едиными...
1
(за спам и не правельные ответы не даю+жлоба)...
1
Дискрипторы работы с гистограммой. 1.Определите период исследования (рис.3)....
2
Үстелдің ұзындығы 0,8 метр оны сантиметр миллиметр километр ауыстырып жазу...
1
задание 2 Определите классы топонимики названия форм рельефа название всех...
2
unaibaevam unaibaevam 16 часов назад Литература 5 - 9 классы +5 б. Тапсырма...
2
uses crt;
var a,b,m,n:integer; p,q: real;
begin
read (a,b);
m:=a; n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
p:= a/m;
q:= b/m;
writeln(p,'/',q);
end.