Написать программу на Паскале: Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число.

Question

Стеня

11 августа, 07:20

+3

Ответы (1)

Знаете ответ на вопрос?

Павлина · Answer 1

Var

A: integer;

Begin

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

A : = (A mod 10) * 100 + (A div 10) ;

WriteLn (A) ;

End.