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

Question

Информатика

Сергуша

25 октября, 09:03

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

+4

Ответы (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.