Ну, например, так:
uses Crt;
const n=100;
var i: integer;
begin
ClrScr;
WriteLn (' Tabliza kwadratow: ');
for i:=1 to n do
begin
Write (i,'=',i*i, ' ':4);
if (i mod 5=0) then
WriteLn;
end;
WriteLn;
ReadLn;
end.
От 0 до 8 иначе говоря по 8 цифр на одной позиции
количество комбинаций будет равно 64 (узнали мы это возведя количество чисел (8) в квадрат
2 в 6-й степени равно 64 значит можно закодировать 6-ю битами
Const N=10;
TYPE Chisla = array [1..N] of integer;
var f: Chisla;
procedure IChisla (N: integer; var a: Chisla);
begin for var i := 1 to N do a[i] := random(-50, 50);
end;
procedure OChisla(N: integer;a: Chisla);
begin
for var i := 1 to N do write(a[i]:5);
end;
function Sum (a:Chisla): integer;
begin
for var i:=1 to N do
if (a[i] mod 7 = 0) and (a[i] mod 10 = 5) then result:= result+f[i];
end;
BeginI
Chisla (N, f);
OChisla (N, f);
writeln ('Вывести сумму', Sum(f));
<span>End.</span>
1)640*960=614400 (всего пикселей).Т.к на один пиксель 5 бит
2)614400*5=3072000 бит/8=384000 байт/1024=375 Кбайт.
Ответ:375 Кбайт
Ответ:
93 в десятой степени . . . .