1.
program
HelloWorld;
var i:
integer;
var a,b,s: double; //a - выручка за день, b - план за день,
s - зарплата всего
begin
<span> s:=0;
</span> for i:= 1 to 28 do
begin
write('День '); write(i); writeln(': ');
writeln('Введите значение
ежедневной выручки:');
readln(a);
writeln('Введите
значение ежедневного плана:');
readln(b);
<span> if a>b then
</span> 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
<span>
s:=0;</span>
<span>
for i:= 1 to 28 do</span>
<span>
begin</span>
<span>
write('День '); write(i); writeln(': ');</span>
<span>
writeln</span>('Укажите сколько грамм съедено:');
readln(a);
<span>
if a>100 then </span>
<span>
begin</span>
<span>
s:= s+3;</span>
<span>
end</span>
<span>
else s:= s+2;</span>
<span>
end</span>;
write('Подрос на (%): ');
writeln(s:15:2);
end.
3.
program HelloWorld;
var i: integer;
var a,b,s: double;
//a - время в воде в
день, b - время на суше
в день, s - пройденный
путь
begin
<span>
s:=0;</span>
<span>
for i:= 1 to 7 do</span>
<span>
begin</span>
<span>
write('День '); write(i); writeln(': ');</span>
<span>
writeln</span>('Укажите время в воде:');
readln(a);
writeln('Укажите время на суше:');
readln(b);
<span>
s:= s+(a*80 + b*20);</span>
end;
write('Пройденный путь: ');
writeln(s:15:2);
<span>end.</span>
