Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.

Videos

eBooks

Library
Videos
eBooks

tinhtiendien_40_11a2

Browse more Pascal Examples

uses    crt;
const   DINHMUC=50;
var     m:integer;
Function    TIENDIEN(m:integer):longint;
        begin
            if m > DINHMUC
                then TIENDIEN:=DINHMUC*1900 + (m- DINHMUC)*8000
            else TIENDIEN:=m*1900;
        end;
Begin
    clrscr;
    writeln('Nhap so kWh dien da su dung trong thang: ');
    readln(m);
    writeln('So tien dien phai tra trong thang: ',TIENDIEN(m));
    readln;
End.

tinhtiendien_40_11a2

Follow

Newsletter