Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>
+ Вони можуть робити всю роботу за тебе
+Вони не можуть захворити
-Вони можуть зламатися
-Вони ніколи не зможуть замінити людей.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
Давайте будем кодировать температуры от 0 до 64 градусов, а потом просто вычитать из них 30. Чтобы закодировать число от 0 включительно до 64 исключительно необходимо 6 бит (2 в 6-ой = 64). Если мы хотим кодировать включительно нам потребуется 7 бит.