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.
Program rok_ork_kok;var x,y:integer; s:string; c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к'; x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к'; x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); 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.