Дано четырехзначное число, найти число переставив - вопрос №20774082 от Nosochekxnncnnc 29.07.2022 23:25

Question

Информатика: Дано четырехзначное число, найти число переставив первую и вторую, третью и четвертую цифру местами. Паскаль

Nosochekxnncnnc · Answer

var  x : integer; begin readln(x); x := (x div 100 mod 10) * 1000 + (x div 1000) * 100 + (x mod 10) * 10 + (x div 10 mod 10); writeln(x); end....