Он бы завоевал мир и выгнал бы людей с земли, или сделал их рабами, даже сейчас заметно как компьютер завоевывает мир. Даже не умея думать и говорить.
<h2>PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)
</h2>
- program task31143948;
- const
- N = 12;
- var
- arr: array[1..N] of real;
- Sum: real;
- begin
- Sum := 1;
- for var i := 1 to N do
- begin
- arr[i] := Random()*4 - 1;
- Writeln(arr[i]:5:2);
- if arr[i] < 0 then
- Sum := Sum * arr[i]
- end;
- if Sum = 1 then
- Write('ПРОИЗВЕДЕНИЕ = 0')
- else
- Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
- end.
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>
1. Дано: Растровая сетка размером 600х350; К=8
Решение: По формуле К=2^b определим глубину цвета 8=2^3, глубина цвета b=3 бита. Количество пикселей равно 600х350=210000. Объем видеопамяти равен 210000*3=630000 бит.
Переведем полученный результат в Кбайты.
630000/8=78750 байт. 78750/1024=76,904 Кбайт.
Ответ: 76,904 Кбайт.
2. Дано: b=3 бита
Решение: Опять же по формуле K=2^b, K=2^3=8 цветов.
Ответ: 8 цветов.
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку