Tin học pascal: cấu trúc rẽ nhánh

[Lê Thị Hàn]

[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.

mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ
Bài 2: Viết chương trình nhập vào số kw điện, tính và xuất ra số tiền phải trả (T) theo công thức sau:
-Nếu kw <=100 thì Tính 2000 đ cho 1kw
-Nếu 100<kw<=200 thì những kw vượt 100 tính 2500 đ cho 1 kw

 

[Tiểu Linh Hàn]

var k: integer;
begin
readln(k);
if k <= 100 then writeln(k * 2000);
if 100 < k <= 200 then writeln(100 * 2000 + (k - 1000) * 2500);
readln
end.

Code như vầy thôi chị