СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);<span>
end.</span>
Var
x,d,count:integer;
begin
write('x=');
readln(x);
write('d=');
readln(d);
while x>0 do
begin
if x mod 10 = d then
count:=count+1;
x:= x div 10;
end;
writeln(count);
end.
2 Кб = 2 * 1024 байта = 2 * 1024 * 8 бит = 2^14 бит
В изображении 128 * 128 = 2^14 пикселей, на всё изображение отводится 2^14 бит, значит, на один пиксель приходится i = 1 бит
Максимально возможное число цветов N = 2^i = 2.