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

Question

Информатика

Флориана

11 февраля, 12:14

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

+4

Ответы (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.