1) Выделить.
2) Скопировать.
3) Вырезает выделенный текст или другой объект.
4) Удаление выделенного элемента в корзину.
5) Удаляет безвозвратно (Минуя корзину).
6) Печать страницы, которую вы просматриваете.
7) Закрытие активного окна.
8) Отменяет любое действие.
9) Вставляет любой скопированный текст или другой объект.
512 Кбайт = 512*1024 байт = 512*1024*8 бит
Для кодирования одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32).
Количество страниц = 512*1024*8 / (640*200*5) ≈ 6,5 = 6
Ответ 192 стороны
Объяснение: после каждого шага фигура умножается на 4
//Pascal ABC.NET 3.1 сборка 1256
Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.
//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.