Куроку: 1. найти произведение 4-х целых чисел. 2. в углу прямоугольного двора размером а на стоит прямоугольный дом размером на л. вычислить длину забора / и свободную площадь двора school 3. в корзине лежат 4-ре вида шаров. красных шаров - к, зеленых - синих желтых, которых в 2 раза больше, чем три предыдущих вида. сколько всего шаров находится в корзине (использовать различные способы ввода)? 4. вычислить объем цилиндра v = r2 h. 5. вычислить объем пирамиды v = -h. вычислить объем конуса v = - найдите значения логических выражений: (1 v 1) v (1 v 0) = ((1 v 0) v 1) v 1 = ((1 v 0) (1/a1)) (0 v 1) = ((1 / 1) - (1 - 0)) v = (1 v 1) - (1 v 0) = (1 - 1) v (1 - 1)

program helloworld; var i: integer; var a,b,s: double; //a - выручка за день, b - план за день, s - зарплата всего

begin

      s: =0;     for i: = 1 to 28 do    begin      write('день '); write(i); writeln(': ');       writeln('введите значение ежедневной выручки: ');       readln(a);       writeln('введите значение ежедневного плана: ');       readln(b);    

        if a> b then      begin      a: = a+a*0.2;       end      else a: = 1500;    

        s: = s + a;

  end;

  write('зарплата составила: '); writeln(s: 15: 2);

end.

2.

program helloworld;

var i: integer;

var a,s: double; //s - итого в процентах, a - еда в граммах

begin

      s: =0;

      for i: = 1 to 28 do

      begin

        write('день '); write(i); writeln(': ');

        writeln('укажите сколько грамм съедено: ');

        readln(a);

        if a> 100 then

        begin

          s: = s+3;

          end

        else s: = s+2;

      end;

      write('подрос на (%): ');

      writeln(s: 15: 2);

  end.

program helloworld;

var i: integer;

var a,b,s: double; //a - время в воде в день, b - время на суше в день, s - пройденный путь

begin

      s: =0;

      for i: = 1 to 7 do

      begin

        write('день '); write(i); writeln(': ');

        writeln('укажите время в воде: ');

        readln(a);

        writeln('укажите время на суше: ');

        readln(b);

        s: = s+(a*80 + b*20);

      end;

      write('пройденный путь: ');

      writeln(s: 15: 2);

end.