Предмет: Информатика, автор: nigeeeeeer

помогите пожалуйста. Напишите программу, которая вводит четырёхзначное натуральное число и переставляет его вторую и третью цифры, например, из числа 1234 должно получится 1324


ismars: на каком языке программирования? любом?
nigeeeeeer: паскаль

Ответы

Автор ответа: ismars
0

var x : integer;

begin

writeln('Введите четырехзначное число');

read(x);

x := x + 90*((x div 10) mod 10 - (x div 100) mod 10);

writeln(x);

end.


ismars: прошу прощения, строчку забыл убрать
ismars: исправил
Интересные вопросы
Предмет: Русский язык, автор: снегурка1