А сколько строк?
а то не решить
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(19,0,200); a.Println;
Writeln('k=',a.Where(x->x<100).Count)
end.
<u><em>Тестовое решение</em></u>
127 120 137 75 141 61 116 13 52 180 109 80 91 36 71 191 56 7 108
k=10
Program Zadacha;
Const Xmin = 0.2; Xmax = 1; S = 0.2;
Var fx, x: Real;
i: Integer;
Begin
x := Xmin;
i := 0;
While x <= Xmax Do
Begin
fx := Sqrt(2 + Sin(x)) / (x + Cos(x));
x := x + S;
i := i + 1;
WriteLn('f(x', i, ') = ', fx:5:5);
End;
ReadLn;
End.
1)Program A1;
var
a,i:integer;
begin
a:=0;
for i:=1 to 100 do if (i mod 5=0)and(i>0) then a:=a+i;
writeln(a);
end.
2)Program A2;
var
a: array [1..10,1..10] of integer; b,i,j:integer;
begin
writeln('Vvedi massiv');
for i:=1 to 10 do for j:=1 to 10 do readln(a[i,j]);
b:=0;
for i:=1 to 10 do b:=b+a[i,i];
writeln(b);
end.
N= 2^{i} , N- количество цветов, i -глубина цвета
256= 2^{i} , i=4 бит
объем = количество пикселей * глубину цвета
Объем=720*360*4 бит = 129,600 байт.