Дано четырехзначное число, найти число переставив - вопрос №20773748 от Даниюша3223 25.09.2020 16:21

Question

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

Даниюша3223 · 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....