Помогите решить задачу. Поменять местами первую и последнюю цифру натурального числа. решение в паскале. Тема while, repeat. Подробно, понятно пжлст
Var
a, n: longint;
begin
write(Введите число: );
readln(a);
n := 1;
while a div (n * 10) > 0 do
n := n * 10;
a := a mod 10 * n + a mod n div 10 * 10 + a div n;
writeln(Поменяли первую и последнюю цифру:, a);
end.
Тестовое решение:
Введите число: 12345
Число после преобразования:52341
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
