Question

Написать программу на языке Паскаль

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

Answer 1

• Program Brainly;
• Var x: Integer;
• Begin
• Repeat
• Write('Введите 3-значное число: ');
• Read(x);
• Until (x >= 100) and (x < 1000);
• Writeln('Результат: ', x mod 10, x div 100, x div 10 mod 10 );
• end.