Question

Turbo pascal: компания по снабжению электроэнергией взимает плату с клиентов по тарифу: -7р. за 1 квт/ч за первые 250 квт/ч -17 р. за квт/ч если потребление свыше 250, но не превышает 300 квт/ч -20 р. за квт/ч, если потребление свыше
300 квт/ч потребитель израсходовал n квт/ч. подсчитать плату.

Answer 1

var n,cost: real;

begin

  writeln('Введите, сколько кВт/ч клиент израсходовал');

  readln(n);

  if n<=250 then begin cost:=7*n; writeln('Плата равна: ',cost); end;

  if (n>250) and (n<=300) then begin cost:=17*n; writeln('Плата равна: ',cost); end;

  if n>300 then begin cost:=20*n; writeln('Плата равна: ',cost); end;

end.