При заданной мощности достаточно 1 байта на символ, чтобы закодировать алфавит.
Итого получается:
1*320*384/ 1024 = ? кБайт.
Возьмем Р - периметр; S - площадь; а - сторона квадрата.
S= a*a
a=P/4
Рассмотрим на примере:
P=4
а=4/4=1
S=1*1=1
Не понятно про "Жесткий" цикл. Но как вариант:
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
<span>2^23 бит= 2^10*2^10*2^3 бит = 2^10 * 2^10 байт = 2^10 Кбайт = 1 Мбайт</span>
Я напишу по простому сам распеределиш
Delete Удаление символа с право
Caps Lok увелечение букв
Esc выхождение из программы
Enter вход в программу или разделение строки