Вопрос пользователя:
Turbo Pascal: Компания по снабжению электроэнергией взимает плату с клиентов по тарифу:
-7р. за 1 кВт/ч за первые 250 кВт/ч
-17 р. за кВт/ч если потребление свыше 250, но не превышает 300 кВт/ч
-20 р. за кВт/ч, если потребление свыше 300 кВт/ч
Потребитель израсходовал n кВт/ч. Подсчитать плату. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
Илюха отвечает:
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.