Определить, превышает ли дробная часть числа 0,5

@QuezZa · Регистрация: 09.11.2017

Для дроби m/n
определить превышает ли дробная часть числа 0,5. Если
превышает, то число m удвоить, иначе удвоить число n .

@JuriiMW · 15.11.2017, 07:39

Pascal

begin
  var(m,n):=ReadLnInteger2('Введите через пробел m и n:');
  WriteLn('Результат: ', Frac(m/n)>0.5?(m*2,n):(m,n*2));
end.

@QuezZa · 16.11.2017, 12:33 **[ТС]**

Мне нужно с разветвлением :<

@Puporev · 16.11.2017, 12:59

Pascal

1 2	if frac(m/n)>0.5 then write('Дробная часть больше 0.5') else write('Дробная часть не больше 0.5');

@JuriiMW · 17.11.2017, 06:34

Сообщение от QuezZa

Мне нужно с разветвлением :<

Ну, дык, условный оператор — это и есть „развлетвление“…

@QuezZa 0 / 0 / 0 Регистрация: 09.11.2017 Сообщений: 17
		1
	Определить, превышает ли дробная часть числа 0,5 14.11.2017, 21:42. Показов 2182. Ответов 4 Метки нет (Все метки) Для дроби m/n определить превышает ли дробная часть числа 0,5. Если превышает, то число m удвоить, иначе удвоить число n . 0

@QuezZa 0 / 0 / 0 Регистрация: 09.11.2017 Сообщений: 17
	16.11.2017, 12:33 [ТС]	3
	Мне нужно с разветвлением :< 0

@JuriiMW 5084 / 2655 / 2350 Регистрация: 10.12.2014 Сообщений: 10,047
	17.11.2017, 06:34	5
	Сообщение от QuezZa Мне нужно с разветвлением :< Ну, дык, условный оператор — это и есть „развлетвление“… 0