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

Ответы 1

  • Var A,B,k,n,m:integer;BeginWrite('Введите целое число: ');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.VarA:integer;BeginWrite('Введите целое число: ');ReadLn(A);While A<>0 do   Begin   Write(A mod 10);   A:=A div 10   End;End.
    • Автор:

      krish
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years