Если мы пронумеруем все числа, то на первом шагу останутся все числа с номерами 2к (к начинается с единицы), на втором 4к и т д. Значит, нам просто нужно узнать количество таких шагов. Всего чисел м-н. каждый раз мы удаляем половину. Значит, нужно посчитать логарифм от (м-н) по основанию 2. А ответом будет этот логарифм, округленный в меньшую строну (ну или в большую, там смотреть надо)
Ответ:
32гб = 32000мб
1 файл = 100 листов
32000мб : 100=320см = 3.2м
Я думаю, так
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
V.VI.MMIII иными словами 05.06.2003)