Персональный компьютер
Аппаратное обеспечение Информационные ресурсы Программное обеспечение
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
1см - 2 клетки. Все очень просто
1) Решение квадратного уравнения через дискриминант
2) Нахождение производной сложной функции
3) Нахождение экстремума функции
4) Решение уравнения с одним неизвестным
5) Решение уравнение с двумя неизвестными
6) Нахождение площади куба/параллелограма/квадрата и тд
7) Нахождение периметра
Достаточно? :D
Дано
a=720
b=348
N=65536
V-?
V=a*b*I ( I-глубина цвета неизвестна) найдем из формулы Хартли
N=2^I
65536=2^I 2^16=2^I I=16 Бит
V=720*348*16=4008960 бит
Переведем в КБ
4008960 бит: 8: 1024=489 КБ