Umlore
6 год назад
Пожалуйста посчитайте написать задачу в паскале:Дано положительное вещественное число, имеющие целую и дробную части. Поменять местами цифры из целой и дробной части, стоящие справа и слева от дробной точки.
ОТВЕТЫ
Anastasiya
Oct 24, 2020
begin
var s:=ReadReal('r=').ToString;
var i:=Pos('.',s);
var r:real;
if i>0 then r:=(s[i+1:]+'.'+s[:i]).ToReal
else r:=('0.'+s).ToReal;
Writeln('r= ',r)
end.
r= 3.14159265
r= 14159265.3
224
Смежные вопросы:
