Поменять местами дробную и целую части числа и вывести полученное значение числа.

@Мария86 · Регистрация: 25.10.2012

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

19. Дано действительное число R вида nnn. ddd (три цифровых разряда в дробной и целой частях). Поменять местами дробную и целую части числа и вывести полученное значение числа.

Помогите пожалуйста решить....
P.S. Заранее спасибо

@CodeR · 25.10.2012, 14:00

Pascal

Var r:real;
Begin
    write('Введите число r вида (nnn.ddd): ');
    readln(r);
    writeln('Полученное число: ',frac(r)*1000+int(r)/1000:3:3);
    readln;
End.

@Мария86 0 / 0 / 0 Регистрация: 25.10.2012 Сообщений: 11
		1
	Поменять местами дробную и целую части числа и вывести полученное значение числа. 25.10.2012, 13:12. Показов 14944. Ответов 1 Метки нет (Все метки) 19. Дано действительное число R вида nnn. ddd (три цифровых разряда в дробной и целой частях). Поменять местами дробную и целую части числа и вывести полученное значение числа. Помогите пожалуйста решить.... P.S. Заранее спасибо 0

	25.10.2012, 14:00

Опции темы

Поменять местами дробную и целую части числа и вывести полученное значение числа.

Решение