Ввести четырехзначное число. поменять крайние цифры числа местами.

Yana200652 Yana200652    1   21.07.2019 09:10    0

Ответы
sonya410 sonya410  03.10.2020 09:30
Var n : Integer;
Begin
  Readln(n);
  n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
  Writeln(n);
end.

Ввод: 1234
Вывод: 4231
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика