Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
бухгалтерия, документооборот.
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.
Популярные вопросы