Склавиатуры вводится четырёхзначное натуральное число. поменяйте в нём местами первую цифру со второй и третью с четвёр- той. затем результат надо вывести на экран. оператор вывода в про- грамме должен быть единственным и выглядеть так: writeln(y).

povarnicyna106 povarnicyna106    3   10.09.2019 02:00    0

Ответы
kachinlexa1999 kachinlexa1999  07.10.2020 04:22
Var n,y:integer;    
      a,b,c,d:integer;
Begin
readln(n);
a:= n div 1000;
b:= n div 100 - a * 10;
c:= n div 10 - a * 100 - b * 10;
d:= n mod 10;
y:= b*1000 + a*100 + d*10 + c;
writeln(y);
end.

Пример: 4295 (5290)
Вывод: 2459 (2509)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика