program prim;
var a,b:real;
begin
writeln('Введите 2 числа: ');
read(a,b);
if a>b then writeln('Большее число = ', a)
else writeln('Большее число = ', b);
end.
( На самом деле это очень легко) )
В столбец оплаты ставь формулу с условием =ЕСЛИ(G4<500;5*G4;ЕСЛИ(G4<=999;G4*10;ЕСЛИ(G4>=1000;G4*15))). G4 меняй на соответствующий у тебя столбец и строку. Количество клиентов более 1000квт счетесли, диапазон и условие. =СЧЁТЕСЛИ(G4:G13;">=1000"). На скрине можно посмотреть куда и что вставлять.
K:=1;
f:=1;
while k<=n do
begin
f:=f*k;
<span>k:=k+1;
end;</span>
Program Task;
Var a, b, i: Integer;
Begin
For i := 100 To 1000 Do
Begin
a := a + i;
b := b + 1;
End;
WriteLn('Результат: ', (a / b):4:2);
ReadLn;
End.