30 * 40 * 50 = 60000 сим
1-н сим - 8 бит (кодировка 8 разряд)
60000 * 8 / 8 = 60000 байт
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
64=2⁶, поэтому один символ кодируется 6 битами.
1907 * 1024 * 8 = 15622144 бит
15622144 / 6 = 2603691 Символ
Uses graphABC;
var x,y,a,b,r:integer;
begin;
maximizewindow;
Setbrushstyle(bsClear);
r:=50;
x:=100;
y:=50;
for b:=1 to 3 do
begin;
while a<>7 do
begin;
a+=1;
circle(x,y,r);
y+=50;
end;
a:=0;
x+=100;
y:=50;
end;
<span>end.</span>