47

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

valdmar180 31 марта 2023

Turbo Pascal: Компания по снабжению электроэнергией взимает плату с клиентов по тарифу: -7 р. За 1 кВт/ч за первые 250 кВт/ч -17 р. ЗакВт/ч если потребление свыше 250, но не превышает 300 кВт/ч

категория: информатика

83

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.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...