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

-7р. за 1 кВт/ч за первые 250 кВт/ч

-17 р. за кВт/ч если потребление свыше 250, но не превышает 300 кВт/ч

-20 р. за кВт/ч, если потребление свыше 300 кВт/ч

Потребитель израсходовал n кВт/ч. Подсчитать плату. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!

1

Ответы и объяснения

Лучший Ответ!
2012-04-23T18:54:05+00:00

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.