Предмет: Информатика,
автор: Noorа
С клавиатуры вводится четырёхзначное натуральное число.
Поменяйте в нём местами первую цифру со второй и третью с четвёр-
той. Затем результат надо вывести на экран. Оператор вывода в про-
грамме должен быть единственным и выглядеть так: writeln(y).
Ответы
Автор ответа:
0
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)
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)
Интересные вопросы
Предмет: Математика,
автор: vladislavaww3
Предмет: Химия,
автор: irodaa001
Предмет: Обществознание,
автор: stas0107
Предмет: История,
автор: vilu2412
Предмет: История,
автор: AndrodE