В ячейки столбца D (Израсходовано) введите формулу вида =C5-B5 (это формула для ячейки D5, в ячейках D6:D16 - аналогично).
В ячейки столбца E (Сумма) введите формулу вида =ЕСЛИ(D5<=100;D5*1,5;ЕСЛИ(D5<300;D5*1,8;D5*2))
(это формула для ячейки E5, в ячейках E6:E16 - аналогично).
1. Слева устройство вывода, снизу процессор.
2. Клавиатура, принтер.
3. Устройства ввода: 2,3 Вывода: 1,4
4. 1)Веб-камера 2)Проектор
Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
1) 52-28
52 прям.код 0 0110100 (первый ноль знак числа +)
- 28 пр. код 1 0011100 (1 - знак "-")
- 28 об.код 1 1100011 (образуется путем инвертирования)
-28 доп. код 1 1100100 (<span>образуется путем прибавления 1 к младшему разряду обр.кода)
</span>0 0110100 +<span>1 1100100=1 0 0011000 (1 -перенос отбрасывается)
</span>+<span>11000 = 16+8=24 (10)
</span>2) 14 пр.код 0 0001110
-81 пр.код 1 1010001
-81 обр.код 1 0101110
-81доп. код 1 0101111
0 0001110+1 0101111= 1 0111101 это допол.код -67
При переводе в прямой биты результата инвертируются и к младшему разряду + 1
1 1000010+1=1 1000011= - 64+3= - 67
{ фото огонь !!! ))) решение согласно схеме }
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.