Для двух дробей m/n и l/k выяснить равны ли их дробные части

@Алексей Технома · Регистрация: 25.02.2010

Author24 — интернет-сервис помощи студентам

Для двух дробей m/n и l/k выяснить равны ли их дробные части.Если они равны - вывести один раз значение дробной части,а не равны - вывести обе дроби.

@EvilVoodoo · 09.11.2011, 15:12

Pascal

uses crt;
var m,n,l,k     : integer; //это наши переменные, которые пользователь будет вводить вручную
     ch1, ch2   : real;     //это для хранения результатов деления
begin
clrscr; //очищаем экран
write('Введите m: ');
readln(m);
write('Введите n: ');
readln(n);
write('Введите l: ');
readln(l);
write('Введите k: ');
readln(k);
if ((n=0) or (k=0)) then write('Нельзя делить на ноль!') else begin
ch1:=m/n;
ch2:=l/k;
if ch1=ch2 then write('Равны ',ch1) else write ('Равны ',ch1,' и ',ch2,' соответственно');
end;
ReadLn; //Ждем нажатия на Enter
ClrScr;  //Очищаем экран
end.

@Алексей Технома 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 41
		1
	Для двух дробей m/n и l/k выяснить равны ли их дробные части 07.11.2011, 16:39. Показов 4859. Ответов 1 Метки нет (Все метки) Для двух дробей m/n и l/k выяснить равны ли их дробные части.Если они равны - вывести один раз значение дробной части,а не равны - вывести обе дроби. 0

	09.11.2011, 15:12

Для двух дробей m/n и l/k выяснить равны ли их дробные части

Решение