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

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

3) Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

Question

Информатика

Ванюта

24 мая, 02:24

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

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

3) Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

+1

Ответы (1)

Знаешь ответ?

Даниил · Answer 1

Var

n, n1, n2, n3: integer;

begin

write ('Введите трехзначное число: ');

readln (n);

if not ((n > = 100) and (n < = 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.