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

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

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

Question

Информатика

Ронюша

13 октября, 17:37

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

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

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

+5

Ответы (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.