Дано целое число n. Если оно четырёхзначное, то записать его справа налево. Например, из 1234 получить 4321. Иначе вывести на экран соответствующее сообщение.

Question

Информатика

Жори

20 марта, 08:03

Дано целое число n. Если оно четырёхзначное, то записать его справа налево. Например, из 1234 получить 4321. Иначе вывести на экран соответствующее сообщение.

+1

Ответы (2)

Знаете ответ на вопрос?

Ильямудин · Answer 1

jа vascript:

var Обр = function (ч) { return ч = = = ""? "" : Обр (ч. substr (1)) + ч. charAt (0) ; }, число = prompt () ;

if (число. length! = 4 || parseInt (число) ! = число) alert ("Ошибка ввода.") ; else alert (Обр (число)) ;

Бленда · Answer 2

var n, a, k:integer;

begin

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

readln (n) ;

a:=n;

while a>0 do

begin

k:=k+1;

a:=a div 10

end;

if k=4 then

begin

a:=n;

write ('Число четырёхзначное, записанное справа налево: ') ;

while a>0 do

begin

write (a mod 10) ;

a:=a div 10

end

end

else write ('Число не четырёхзначное') ;

end.