Var
r1,r2,r3,U:real;
begin
Write('Введите величины сопротивлений R1, R2, R3: ');
Read(r1,r2,r3);
Write('Введите величину напряжения V: ');
Read(U);
Writeln('Ток через R1 и R2 равен ',U/(r1+r2));
Writeln('Ток через R3 равен ',U/r3)
end.
Пример
Введите величины сопротивлений R1, R2, R3: 130 70 215
Введите величину напряжения V: 220
Ток через R1 и R2 равен 1.1
Ток через R3 равен 1.02325581395349
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
Println(ReadInteger('v=')<=ReadInteger('r=')-100?'Пройдет':'Не пройдет');
end.
Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель.
Задача 1.
N=2^4=16 цветов.
Задача 2.
N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.
Задача 3.
65536 это 2^16⇒требуется 16 бит или 2 байта.
Задача 4.
1. Узнаем общее количество пикселей 1280*1024=1310720
2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб
Ответ: 5 Мб
Много:
1) 2+2+2+2
2)1+1+1+1+1+1+1+1
3) 2+1+2+1+2
4)1+1+2+2+1+1 и тд