Паскаль. 1) Дано трехзначное число, нужно найти число, полученное при прочтении его цифр...

Question

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

Answer 1

Var
    n, n1, n2, n3: integer;

begin
    write('Введите трехзначное число: ');
    readln(n);
    if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа')<br>    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.