Напишите программу, вычисляющую какую сумму денег нужно платить за электроэнергию, если у пользователя программы запрашивается количество КВт электроэнергии, которое было израсходовано за расчѐтный месяц, и какова плата за 1 КВт электроэнергии.

Question

Информатика

Павлуха

10 декабря, 16:55

Напишите программу, вычисляющую какую сумму денег нужно платить за электроэнергию, если у пользователя программы запрашивается количество КВт электроэнергии, которое было израсходовано за расчѐтный месяц, и какова плата за 1 КВт электроэнергии.

+1

Ответы (1)

Знаете ответ?

Костюха · Answer 1

Program kBt;

uses crt;

var

kBte, kBt1, sum:real;

begin

clrscr;

writeln ('vvedite lo-vo KBt: ') ;

read (kBte) ;

writeLn ('vvedite cenu za 1 KBt: ') ;

read (kBt1) ;

sum:=kBte*kBt1;

writeln ('Neobhodimo oplaltit ', sum) ;

readln;

end.