Tin học Viết chương trình Pascal lớp 8

[mquynh1707]

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

Tình hình là mai e thi tin học trẻ, mà giờ còn 2 bài này giải ko ra @-)@-) Mọi ng giúp e với ạ
Đề:
Bài 1: Những sợi dây xích k
Có n sợi dây xích, sợi thứ i có ci mắt xích (i=1,2,3,...n). Những sợi dây xích k là những sợi dây xích chỉ có 1k, 2k hoặc 3k,...mắt xích. Nếu sợi dây xích nào có nhiều hơn hoặc ít hơn các con số mắt xích người ta có thể cắt đi hoặc nối thêm vào các sợi dây xích ít hơn để tạo ra sợi dây xích k. Nói cách khác là mọi mắt xích có thể cắt hoặc mở ra để tạo thành những sợi dây xích k.
Yêu cầu: Với n sợi dây xích đã cho. Hãy cho biết sau khi tao được toàn bộ những sợi dây xích k thì còn lại bao nhiêu mắt xích dư ra
Bài 2: Phần dư
Cho 2 số nguyên dương n và k
Yêu cầu Hãy tính n! mod k
%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-%%-

 

[syphuongcuong3]

bài 1: Yêu cầu viết lại đề cho đàng hoàng cái
bài 2:

USES crt;
VAR i,n,S,k:WORD;
BEGIN
    clrscr;
    write('Nhap 2 so n va k'); readln(n,k);
    FOR i:=1 TO n DO S:=S*i;         
    write('Kq:',S MOD k);
    readln;
END.