Последнее должно быть кулер. А что насчет ребуса? Где картинка?
Ответ: в любой сфере информационной деятельности
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
10*118=1180 симв/час
1180*8=9440 симв/день
9440*365=3445600 симв/год
1 символ весит 1 байт.
3445600*1 байт=3445600 байт=<span>3,286 Мб (информационный объем)
P.S. Сам контрольную решай, МГУПИшник :D
</span>