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

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

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

Сделайте в Pascal!

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.

3.

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.