Pascal

Modified: Wednesday, 22-12-2021 07:00 AM

Một thiếu nữ đeo 7 vòng tay bên tay trái. Mỗi ngày cô lấy 1 vòng tay đeo qua bên tay phải. Khi cả 7 vòng ở bên tay phải thì cô sẽ lần lượt đeo sang tay trái.
Vậy sau N ngày có bao nhiêu vòng bên tay trái - tay phải ?

var ngay,i,trai,phai:longint;
begin
     write('Nhap so ngay: ');readln(ngay);
     i:=ngay div 7;
     if odd(i) then
     begin
          trai:=ngay mod 7;
          phai:=7-trai;
     end
     else
     begin
          phai:=ngay mod 7;
          trai:=7-phai;     
     end;
     writeln('- Trai: ',trai,' - Phai: ',phai);
     readln;
end.