Дано целое число n. Если оно четырёхзначное, то записать его справа налево. Например, из...

Question

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

Answer 1

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.

Answer 2

javascript:

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

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