a - уровень продаж, а затем зп первого менеджераb - второго менеджераc - третьегоуровень продаж у всех разный.язык программирования: паскальvara, b, c: integer; beginreadln (a); if a < 500 thena : = 0.03 * a + 200; if (a > 500) and (a < 1000) thena : = 0.05 * a + 200; if a > 1000 thena : = 0.08 * a + 200; readln (b); if b < 500 thenb : = 0.03 * b + 200; if (b > 500) and (b < 1000) thenb : = 0.05 * b + 200; if b > 1000 thenb : = 0.08 * b + 200; readln (c); if c < 500 thenc : = 0.03 * c + 200; if (c > 500) and (c < 1000) thenc : = 0.05 * c + 200; if c > 1000 thenc : = 0.08 * c + 200; if (a > b) and (a > c) thena : = a +200; elseif b > c thenb : = b + 200; elsec : = c + 200; wreteln ('зп первого менеджера: ', a, '$'); wreteln ('зп второго менеджера: ', b, '$'); wreteln ('зп третьего менеджера: ', c, '$')end.
program p1;
var
y,a,b,c,x:real;
begin
readln(a,b,c,x);
y:=((a*sqr(x)) + (b*x) + c);
writeln(y);
end.
3)
program p3;
var
a,b,c:real;
begin
readln(a,b,c);
writeln((a+b+c)/3);
end.
Второй номер.
Для прямоугольника:
program p2;
var
a,b:real;
begin
readln(a,b);
writeln(a*b);
end.
Для треугольника (по формуле Герона):
program p2;
var
a,b,c,p,s:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p * (p-a) * (p-b) * (p-c));
writeln(s);
end.
Насчет ромба не знаю.