Паскаль. 1) Дано трехзначное число, нужно отыскать число, приобретенное при прочтении

Паскаль. 1) Дано трехзначное число, необходимо отыскать число, приобретенное при прочтении его цифр справа влево.
2) Дано трехзначное число. В нем зачеркнули заключительную справа цифру и приписали ее в начале. Отыскать полученное число.
3) Дано трехзначное число. Отыскать число, полученное при перестановке первой и второй цифр данного числа.

Задать свой вопрос
1 ответ
Var
    n, n1, n2, n3: integer;

begin
    write('Введите трехзначное число: ');
    readln(n);
    if not ((n gt;= 100 ) and (n lt;= 999)) then writeln('Не верный вводд числа')
    else
    begin
        n1 := n div 100;
        n2 := n div 10 mod 10;
        n3 := n mod 10;
        
        writeln('1 - ', n3, n2, n1);
        writeln('2 - ', n3, n1, n2);
        writeln('3 - ', n2, n1, n3);
    end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт