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.
Поделитесь своими знаниями, ответьте на вопрос:
37,5 если нужны целые..то 40