Задать вопрос
7 августа, 04:01

Напишите программы в Pascal:

1. Ввести целое число и определить, верно ли, что все его цифры расположены в порядке возрастания ... 2. Ввести целое число и "перевернуть" его, так чтобы первая цифра стала последней и т. д.

+4
Ответы (1)
  1. 7 августа, 05:40
    0
    Var A, B, k, n, m:integer;

    Begin

    Write ('Введите целое число: ') ;

    ReadLn (A) ;

    B:=A;

    n:=0;

    k:=0;

    While B0 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 A0 do

    Begin

    Write (A mod 10) ;

    A:=A div 10

    End;

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