Не понятно про "Жесткий" цикл. Но как вариант:
var i:integer;
begin
for i:=-30 to 50 do
if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.
На выходе:
-24
-12
12
24
36
48
F= 4* 32*2^10 *32 *2*60 = 2^2 * 2^5 * 2^10 *2^5 *2^3 *15=
=2^25 *15 бит = 2^2 * 15 Мбайт = 60 Мбайт
Ответ 60 Мбайт
<span>Сервер (server) – компьютер, предоставляющий свои ресурсы клиентам сети. Различают следующие виды серверов:</span>
файловый сервер предназначен для хранения и предоставления файлов, с которыми работают пользователи;сервер баз данных обеспечивает доступ клиентам к общим базам данных;сервер приложений служит для предоставления пользователям прикладных программ;сервер печати обеспечивает печать на общем печатном устройстве со всех рабочих мест;Web-сервер обеспечивает предоставление информации через сеть Internet;почтовый сервер обеспечивает циркуляцию электронной почты, как внутри организации, так и во внешней сети.
Int _tmain(int argc, _TCHAR* argv[])
{<span>
int s, rashod, ben;</span>
<span> printf("Расстояние до дачи (км): \n", s);</span><span>
printf("Расход бензина ( литров на 100 км пробега): \n", rashod);</span><span>
printf("Цена литра бензина (руб.): \n", ben);</span><span>
printf("Поездка на дачу и обратно обойдется в \n", (2*s/100)*rashod*ben);</span>
<span> return 0;
</span><span>}
s - расстояние
rashod - расход
ben - цена 1 литра</span>
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
N = 16, следовательно i = 4 (16 = 24)
N = 256, следовательно i = 8 (256 = 28)
Ответ: в 2 раза
