Question

помогите пожалуйста решить через паскаль. дано четырёхзначное число. найти число, образованное перестановкойпервойи второй, третьей и четвёртой цифр заданного числа. Например, из числа 5434 получить 4543,из числа 7048,--784​

Answer 1

Ответ:

​program example;

var

 num, a, b, c, d, result: integer;

begin

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

 readln(num);

 a := num div 1000;

 b := (num div 100) mod 10;

 c := (num div 10) mod 10;

 d := num mod 10;

 result := d * 1000 + c * 100 + b * 10 + a;

 writeln('Полученное число: ', result);

end.

Объяснение: