Question

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