Đề : nhập vào số ngày ở của 1 người thuê phòng . tính số tuần và số ngày . tính số tiền cần phải trả vs đơn giá 600 ngàn /1 tuần 120 ngàn / 1 ngày Giúp e với e đang cần gấp lắm ạ em cảm ơn trc ạ Làm hay đúng e sẽ cho hay nhất ạ Em cần làm lệnh pascal nhé lưu ý giúp e 😢

2 câu trả lời

uses crt;
var n, t : longint;
begin
clrscr;
write('nhap so ngay : '); readln(n);
t := (n div 7) * 600000 + (n div 7) * 120000;
write('so tien tra : ', t);
readln
end.

Program baitap;

Uses crt;

Var n,ngay,tuan:integer;

      T:longint;

Begin

Clrscr;

Write('Nhap so ngay:'); Readln(n);

tuan:=n div 7;

ngay:=n mod 7;

T:=tuan*600000+ngay*120000;

Writeln('Ban da o ',tuan,' tuan ',ngay,' ngay');

Writeln('So tien phai tra:',T,'(dong)');

Readln

End.