Первая программа может выглядеть так:
uses Crt;
const n =6;
Type Mas= array [1..n] of integer;
var A: Mas;
i, Sum : integer;
begin
ClrScr;
Sum:= 0;
for i:=1 to n do
begin
A[i]:=i*i;
Sum:=Sum+A[i];
end;
for i:=1 to n do
if (A[i] mod 4=0 ) then WriteLn(' Номер школы: :', i);
Writeln (' Количество компьютеров: ', Sum);
ReadLn;
end.
1) Program gsdn;
Var k: integer;
z,n,i,l,s: real;
Begin
k:=0;
l:=5.6;
s:=0;
Repeat
k:=k+1;
n:=0.3;
i:=l+(n*k);
S:=i+s;
Writeln(i);
Until i=9.8;
Writeln(s);
<span>end.
2) </span>Program afaf;
Var k,h: integer;
z,n,i,l,s,y: real;
begin
k:=0;
h:=0;
l:=8.5;
s:=0;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
S:=i+s;
Until i=40.9;
k:=0;
h:=0;
l:=1;
y:=1;
Repeat
k:=k+1;
n:=0.1;
i:=l+(n*k);
y:=i*y;
Until i=3;
If y-s>0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 меньше произведения чисел от 1 до 3 с шагом 0.25');
If y-s<0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 больше произведения чисел от 1 до 3 с шагом 0.25');
If y-s=0 then writeln('Сумма ряда 8.5, 8.6,...,40.9 равно произведению чисел от 1 до 3 с шагом 0.25');
<span>end.
3) </span>Program dsagsa;
var i,j,y: integer;
B: Array[1..5,1..5] of integer;
begin
For i:=1 to 5 do
For j:=1 to 5 do
begin
y:=random(16)-5;
B[i,j]:=y;
end;
For i:=1 to 5 do
begin
Write('(');
For j:=1 to 5 do
Write(B[i,j],' ');
Write(')');
Writeln;
end;
<span>end.
4) </span>program fagasg;
var i,j,i1,j1,y,s: integer;
A: Array[1..50,1..50] of integer;
begin
Writeln('Введите количество строк в массиве');
readln(i1);
Writeln('Введите количество столбцов в массиве');
readln(j1);
s:=0;
For i:=1 to i1 do
begin
Write('(');
For j:=1 to j1 do
begin
y:=random(30)+1;
A[i,j]:=y;
S:=A[i,j]+s;
Write(A[i,j],' ');
end;
Write(')');
Writeln;
end;
<span>end.
Матрицы немного коряво вышли, ну и чуть-чуть быдло кода)</span>
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит) (2^14*5)/2^13=10 кбайт 2) (64*128*7)/2^13=(2^13*7)/2^13=7 кбайт 3)(64*256*8)/2^13= 2^17/2^13=2^4=16 кбайт 4)(32*1024*7)/2^13=(2^15*7)/2^13=4*7=28 кбайт 5)(1024*512*6)/2^13=(2^19*6)/2^13=64*6=384 кбайт 6)(512*256*5)/2^13=(2^17*5)/2^13=16*5=80 кбайт 7)(512*128*4)/2^13=2^18/2^13=2^5=32 кбайт 8)(256*128*3)/2^13=(2^15*3)/2^13=4*3=12 кбайт 9)(128*128*8)/2^13=2^17/2^13=2^4=16 кбайт 10)(24*2^13)/(128*256)=2^16*6/2^15=2*3=6 бит, значит 64 цвета 11)(10*2^13)/(128*128)=2^14*5/2^14=5 бит, значит 32 цвета 12)(7*2^13)/(64*128)=(7*2^13)/2^13=7 бит, значит 128 цветов 13)(16*2^13)/(64*256)=2^17/2^14=2^3=8 бит, значит 256 цветов 14)(28*2^13)/(32*1024)=7*2^15/2^15=7 бит, значит 128 цветов 15)(384*2^13)/(1024*512)=(3*2^20)/2^19=3*2=6 бит, значит 64 цвета 16)(80*2^13)/(512*256)=(5*2^17)/2^17=5 бит, значит 32 цвета 17)(32*2^13)/(512*128)=2^18/2^16=2^2=4 бита, значит 16 цветов 18)(12*2^13)/(256*128)=(3*2^15)/2^15=3 бита, значит 9 цветов 19)(16*2^13)/(128*128)=2^17/2^14=2^3=8 бит, значит 256 цветов (Каждый раз возводим в квадрат кол-во бит))
<span>1 байт = 8 бит, тогда </span>8 байт - 64 бит
