PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
1. Если надо преобразовать число без знака в число
begin var n:=ReadInteger; // исходное число n:=n.ToString.Inverse.ToInteger; // полученное число n.Println; // вывод результата end.
2. Если нужно только вывести результат
begin var n:=ReadInteger; // исходное число n.ToString.Inverse.ToInteger.Println end.
3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)
begin ReadlnString.Inverse.Println end.
4. Если заданное число может быть отрицательным
begin var n:=ReadInteger; // исходное число var s:=Sign(n); // знак числа n:=Abs(n); // модуль числа n:=n.ToString.Inverse.ToInteger*s; // полученное число n.Println; // вывод результата end.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=MatrixRandom(n,n,10,99); var s:=0; var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); Writeln; if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end; end; if k>0 then Writeln('S=',s/k:0:2) else Writeln('На главной диагонали нет четных элементов') end.
Внимание! Если программа не работает, обновите версию!
1. Если надо преобразовать число без знака в число
begin
var n:=ReadInteger; // исходное число
n:=n.ToString.Inverse.ToInteger; // полученное число
n.Println; // вывод результата
end.
2. Если нужно только вывести результат
begin
var n:=ReadInteger; // исходное число
n.ToString.Inverse.ToInteger.Println
end.
3. Если надо только поменять местами символы, введенные с клавиатуры (например, два символа, изображающие число)
begin
ReadlnString.Inverse.Println
end.
4. Если заданное число может быть отрицательным
begin
var n:=ReadInteger; // исходное число
var s:=Sign(n); // знак числа
n:=Abs(n); // модуль числа
n:=n.ToString.Inverse.ToInteger*s; // полученное число
n.Println; // вывод результата
end.