Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum<1100 do<span> begin
</span>sum:=sum+(sum*0.05);
mes:=mes+1;
<span> end;
</span>writeln (mes:2:0);
readln;
end.
<span>Программа работает корректно. Выводит 2</span>
Вроде,нет inc'(n=1 ,n:5')
Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;
write('N=');
readln(n);
for i:=1 to n do
a[i]:=random(2*n+1)-n;
write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
<span>end.</span>
22В1 = 2*16^3 + 2*16^2 + 11 * 16 + 1 = 8881
968 = 9*16^2 + 6*16+8 = 2408