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

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

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

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

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

Ответы 1

  • 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.

    • Автор:

      beans
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years