Ежедневно кондуктор собирает выручку А тенге, если выручка превосходит ежедневный план кондуктора 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.
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.