Turbo Pascal: Компания по снабжению электроэнергией взимает плату с клиентов по...

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;</p>

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

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

end.