хм, возможно, что если фирма В получит максимальную прибыль, то фира С её не сможет получить по логике.... Значит вариан Б
Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
Program chai;
var
x:float;
begin
writeln("vvedite summu sheta");
readln(x);
x=x+x*0.15;
writeln(x);
end.
А) 17 + 83 = 100
36 + 64 = 100
77 + 33 = 100
б) 21 + 7 = 28
36 - 12 = 28
99 - 71 = 28