640 * 480 * i = 307200 байт
i = 307200 байт / 307200 = 1 байт = 8 бит
2^i = N
2^8 = 256
N = 256
256 цветов в палитре
DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
В) набор программ, используемых ну и т.д
00111100
00111100
00111100
00000000
00000000
00111100
00111100
00111100
Код-"н"↑
Код-"л"
10000000
10000000
10011100
10011100
10011100
10011100
00011100
00011100
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>