2 ^ i= N
N = 65536
i= 16
объём = 800*600*16 = 7680000 bit = 960000 bait = 937.5 Кбайт
Program ads;
var
i :integer;
z,x,a :real;
begin
writeln('Введи цену за килограмм');
readln(z);//Узнаём цену за 1 кг.
a:=0.1;//начальный вес 100 грамм.
for i :=1 to 10 do begin
write('Цена за ');
write(a:5:2); //Выводим вес
x:=z*a;//Высчитываем цену за a грамм
a:=a+0.1;//прибавляем 100 грамм
write(' килограмм равна - ');
write(x:5:2);//Выводим цену за вес
writeln;
end;
readln;
end<span>.</span>
4 → 94
94 ← 47 ← 46 ← 23 ← 22 ← 11 ← 10 ← 5 ← 4
78787878
Program test;
var
a:array[1..100] of integer;
i,n:integer;
begin
randomize;
for i:=1 to 99 do begin
n:=random(1,30);
if i mod 3 = 0 then begin
a[i]:=n;
a[i-1]:=n;
a[i-2]:=n;
end;
end;
for i:=1 to 99 do writeln(a[i]);
end.