Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var s:=ReadReal('r=').ToString;
  var p:=Pos('.',s);
  Writeln(Copy(s,p+1,3)+'.'+Copy(s,p-3,3))
end.

Тестовое решение:
r= 234.652
652.234

Answer 2

И еще: если Вы в WDE проверяли, там дыра, расширение .ToString для вещественного числа превращает точку в запятую, поэтому местоположение точки не находится. На будущее: НИКОГДА не пытайтесь, выполнив программу в WDЕ и получив "неверный результат", начинать заявять, что программа неверна: WDE сильно отстает от развития автономных версий.

Answer 3

Да Вы, батенька, хамите! Не стоит так много о себе думать, еще и указывать мне - в чем я разбираюсь, а в чем нет!

Answer 4

Ваша программы не работает, да еще, оказывается!! не принципиально - на выходе набор символов или число!!!

Answer 5

Учите матчасть!

Answer 6

1. Читайте СВОЙ вопрос внимательно: "дано действительное число R вида nnn.ddd (три цифровых разряда в целой и дробной частях)." В школьных задачах НИКОГДА не контролируется правильность вводимых данных, если об этом специально не говорится в условии. 2. Если у Вас программа не работает, значит Вы запустили её в некой версии, более ранней, чем указанная. Это называется просто: переваливать с больной головы на здоровую.