Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
Read(t);
if (t mod 6=0) and (t mod 10=2) then Inc(k)
end;
Writeln(k)
end.
16 бит - 2 байта. 2*1240*480=1190400 байт 1190400/1024=1162,5 КБайт
32=2^5
256=2^8 количество бит на цвет уменьшилось на 3, значит в (2^3 = 8) уменьшился объем в оперативке
ЭТО ОБЫЧНЫЙ КАЛЬКУЛЯТОР,ТОЛЬКО ТАМ КРОМЕ +,- И * ЕСТЬ МНОГО ДРУГИХ ДЕЙСТВИЙ...НАПРИМЕР,ВОЗВЕДЕНИЕ N в степень...