Tin học viết chương trình pascal

[Hoang Minh123]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

hãy viết chương trình tính số tiền điện biết số công tơ điện là k,mỗi số điện giá 1300 đồng (k nhập từ bàn phím)

 

[siroclc]

program tiendien;
uses crt;
var k:longint;
begin
clrscr;
Writeln('Nhap k:');readln(k);
Writeln('Tien dien phai tra :',k*1300,' dong');
readln;
end.

 

[Lục Vân Tiên]

program tiendien;
uses crt;
var k:longint;
begin
clrscr;
Writeln('Nhap k:');readln(k);
Writeln('Tien dien phai tra :',k*1300,' dong');
readln;
end.

thay Writeln('Nhap k:') bằng Write('Nhap k: ')
Writeln('Tien dien phai tra :',k*1300,' dong'); bằng Writeln('Tien dien phai tra: ',k*1300,' dong');
program tiendien; bằng program tien_dien;
Làm thế sẽ dễ nhìn hơn!!!

 

[siroclc]

thay Writeln('Nhap k:') bằng Write('Nhap k: ')
Writeln('Tien dien phai tra :',k*1300,' dong'); bằng Writeln('Tien dien phai tra: ',k*1300,' dong');
program tiendien; bằng program tien_dien;
Làm thế sẽ dễ nhìn hơn!!!

Cảm ơn