Question

Напишите программы в Pascal: 1. Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания.... 2. Ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д.

Answer 1

Var A,B,k,n,m:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
B:=A;
n:=0;
k:=0;
While B<>0 do
   Begin
   n:=n+1;
   B:=B div 10;
   End;
m:=A mod 10;
For n:= 1 to n-1 do
    Begin
    A:=A div 10;
    if (m > A mod 10) then
       Begin
       k:=k+1;
       m:=A mod 10;
       End;
    End;
if k = n then Write('Верно')
else Write('Не верно')
End.



Var
A:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
While A<>0 do
   Begin
   Write(A mod 10);
   A:=A div 10
   End;
End.

Answer 2

//PascalABC.Net 3.2
{1}
begin
var n:=readstring('Число: '); var b:=true;
for var i:=1 to length(n)-1 do if n[i]>n[i+1] then b:=false;
write (b? 'Да':'Нет')
end.

{2}
begin
write (readstring('Число: ').Inverse)
end.

Answer 3

1. Программа для определения, верно ли, что все цифры числа расположены в порядке возрастания:

program CheckAscendingOrder;
var
  num, digit, prevDigit: integer;
  isAscending: boolean;
begin
  writeln('Введите целое число:');
  readln(num);
  
  isAscending := true;
  prevDigit := num mod 10;
  num := num div 10;
  
  while (num > 0) and isAscending do
  begin
    digit := num mod 10;
    if digit >= prevDigit then
    begin
      isAscending := false;
    end;
    prevDigit := digit;
    num := num div 10;
  end;
  
  if isAscending then
    writeln('Все цифры числа расположены в порядке возрастания.')
  else
    writeln('Не все цифры числа расположены в порядке возрастания.');
  
  readln;
end.

2. Программа для "переворачивания" числа:

program ReverseNumber;
var
  num, reversedNum, digit: integer;
begin
  writeln('Введите целое число:');
  readln(num);
  
  reversedNum := 0;
  
  while num > 0 do
  begin
    digit := num mod 10;
    reversedNum := reversedNum * 10 + digit;
    num := num div 10;
  end;
  
  writeln('Перевернутое число:', reversedNum);
  
  readln;
end.