Написать программу получения обратной записи 4 значного числа введенного с клавиатуры

Question

Информатика

Ксюня

26 мая, 12:10

Написать программу получения обратной записи 4 значного числа введенного с клавиатуры

+2

Ответы (1)

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

Юрченя · Answer 1

Var a, b, c, d, e:integer;

begin

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

readln (a) ;

b:=a mod 10;

a:=a div 10;

write (b) ;

c:=a mod 10;

a:=a div 10;

write (c) ;

d:=a mod 10;

write (d) ;

a:=a div 10;

write (a) ;

end.