Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
24^(9) бит=3,3×10^(11) байт
1 терабайт=1×10^(12) байт
24^(9) бит=0,33 терабайт
Вводим x=52
z=1
i=0
Входим в цикл с постусловием и вычисляем
z=(z+x/2)/2=(1+52/2)/2=13.5
Вычисляем внутри цикла i=i+1=0+1=1
Проверяем условие выхода из цикла i<4
Наше i=1 значит 1<4 верное условие, а значит выходим из цикла.
Потому что в цикле с постусловием указывается условие выхода из цикла.
Ответ: 13.5
Больше склоняюсь к варианту 2, т.к. точнее информации в виде кодированного текста, понимаемого компьютером и всей техникой в целом, представить я не в силах.