V=WxHxn
256=2^8
2^8=2^n
n=8
V=100*500*8=400000
V2=WxHxn2
16=2^4
2^4=2^n
n=4
V2=100*500*4=200000
Объем уменьшился
V/V2=2(в два раза)
V-V2=20000(на 200000)
Это программа должна выдать сразу? До какого значения? Конечная цифра задается с клавиатуры?
Var n, s : integer;
begin
s := 0;
while 2 * 2 <> 5 do begin
readln(n);
if n < 0 then break;
if n > 100 then s := s + 1;
end;
writeln(s);
end.