Пусть в переменной С, имеющей тип integer, записано пятизначное число. Запишите в переменную X, имеющую тип integer, число, полученное перестановкой цифр данного числа в обратном порядке. Например, если дано число 61047, то в ответе получается 74016. Если пользуетесь дополнительными переменными, то они все имеют тип integer.

Question

Информатика

Измарагд

29 марта, 18:49

Пусть в переменной С, имеющей тип integer, записано пятизначное число. Запишите в переменную X, имеющую тип integer, число, полученное перестановкой цифр данного числа в обратном порядке. Например, если дано число 61047, то в ответе получается 74016. Если пользуетесь дополнительными переменными, то они все имеют тип integer.

+1

Ответы (1)

Знаете ответ?

Веня · Answer 1

program n_1;

var a, b, c, d, e, X, W:integer;

begin

writeln ('Введите число') ;

readln (X) ;

a:=X div 10000;

b:=X mod 10000 div 1000;

c:=X mod 1000 div 100;

d:=X mod 100 div 10;

e:=X mod 10;

W:=e*10000+d*1000+c*100+b*10+a;

writeln ('W=', W) ;

end.