Дано трехзначное число, в нем перенесли первую цифру слева в право. Вывести полученное число.
Var a, b: integer;
begin
write(Введите число: );
readln(a);
b := a div 100;
a := a mod 100 * 10 + b;
writeln(Новое число: , a);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
