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

Question

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

Сергей

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

Есть ответ

18.12.2022

445

Ответ

Answer 1 · 18.12.2022

var n,cost: real;

begin

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

readln(n);

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

end.

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

Ответ

var n,cost: real; begin writeln('Введите, сколько кВт/ч клиент израсходовал'); readln(n); if n250) and (n300 then begin cost:=20*n; writeln('Плата равна: ',cost); end; end.

var n,cost: real;

begin

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

readln(n);

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

end.