Дано четырехзначное число, найти число переставив - вопрос №20773405 от EgrVir2018 23.11.2021 19:41

Question

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

EgrVir2018 · 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....