Đề : 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.