Написать программу, сокращающую обыкновенные дроби. Числитель и знаменатель вводятся с клавиатуры. В программе использовать цикл с постусловием. Пример.
10-11 класс
|
вводятся числа: 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.
Другие вопросы из категории
Задачи:
- N учащихся одного класса получили оценку за контрольную работу. Сколько учащихся получили "двойку"?
- Дан двумерный массив А размером 3*3,заполненный с клавиатуры. Требуется умножить элементы этого массива на 4 ,если А(1,1)>0 или на 7, если А(1,1)<0.
- Дана строка символов,состоящая только из цифр. Опеределить,сколько раз среди них встречается цифра 5?
Читайте также
дробь представлять двумя целыми числами: первое число представляет числитель дроби, а второе - знаменатель. В процессе вычислений требуется сокращать дроби на их наибольший общий делитель (НОД). Если одно из чисел равно нулю, то НОД берем равным 1. Разработать также отдельные процедуры для ввода (на экран выводится надпись: «Введите числитель и знаменатель обыкновенной дроби») и вывода обыкновенных дробей (a/b).
числитель и знаменатель дроби:
25 15
После сокращения: 5/3
1.Составьте программу двух обыкновенных дробей (с клавиатуры должны вводиться их числители и знаменатели ).
2.Составьте программу, позволяющую выяснить, есть ли у N два простых делителя.
3.Составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел N и M.
4. Составте программу, вычесления суммы четырехзначных чисел, в десятичной записи которых есть два нуля.
Входные данные Выходные данные:
0,375 3 8
1233434343427 1233434343427 1
17,(9) 18 1