Написать в паскале: дано положительное вещественное число, имеющие целую и дробную части. поменять местами цифры из целой и дробной части, стоящие справа и слева от дробной точки.
// 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.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
// Внимание! Если программа не работает, обновите версию!
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