Помогите написать задачу в паскале:
Дано положительное вещественное число, имеющие целую и дробную части. Поменять местами цифры из целой и дробной части, стоящие справа и слева от дробной точки.
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
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
// Внимание! Если программа не работает, обновите версию!
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
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад