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

Question

Иродион

26 января, 09:12

+5

Ответы (1)

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

Альфред · Answer 1

Var

A: integer;

Begin

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

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

WriteLn (A) ;

End.