1)176*512=90172 пикселей всего
2)33 Кбайт=33792 байт=270336 бит.
3)270336/90172=3
4) 2^3=8 цветов.
Ответ: 8
Var a:array[1..10] of integer;i,k:integer;q:real;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
writeln(a[i]);
q:=q+a[i];
end;
q:=q/10;
for i:=1 to 10 do
if a[i]>q then inc(k);
writeln('Чисел превышающих среднее: ',k);
end.
Дана сторона квадрата a. Найти его периметр P = 4·a.
<span>Код C++<span>1
2
3
4
5
6
7
8
9
10
11
<span>#include <iostream>
using namespace std;
int main()
{
int a=100;
int P=4*a;
cout<<"P="<<P<<endl;
return 0<span>;
</span></span></span></span><span>Учитывая то, что у тебя программа закроется мгновенно, перед return 0; поставь system("pause");</span>
Для проверки результата.
begin
seqgen(100, x -> x + 1, 0).Where(x -> x mod 2 = 0).Sum.ToString.Println;
end.