торговельна компанія купила х1 столів за ціною р1 грн за стіл і х2 шаф за ціною р2 грн за шафу. Компанія продала ці меблі, одержавши від продажу столів с1% прибутку, а від продажу шаф с2% прибутку. Складіть електронну таблицю для визначення прибутку компанії від продажу всіх меблів

4: 2

2|0

1|0

0|1

4₁₀=100₂

10: 2

5|0

2|1

1|0

0|1

10₁₀=1010₂

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

1996₁₀=11111001100 

100.1010.11111001100     

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end. 

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

обрамления там везде одинаковые