Ежедневно кондуктор собирает выручку А тенге, если выручка превосходит ежедневный план кондуктора B, то 20% от нее идет на зарплату кондуктору S, в противном случае он получает 1500 тенге. Вычислите зарплату кондуктора за февраль.

Ученые выяснили влияние «Растишки» на рост ребенка. При ежедневно употреблении 100 граммов продукта рост ребенка увеличивается на 2%, больше 100 граммов – 3%. Определите изменение роста ребенка за февраль, если известно, сколько граммов «Растишки» он съедает ежедневно.

Морская черепаха проползает по суше 20 см в минуту, а в воде – 80 см. Определите пройденный путь черепахи за неделю, если известно ежедневное время пербывания черепахи на суше, в воде, а также время ее спячки.


Сделайте в Pascal!!!!!!!!!!!!!!

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.