Viết chương trình - Pascal

[adamnguyen281]

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

1. Viết chương trình đưa ra tất cả các số nguyên tố có 4 chữ số mà tổng 2 chữ số đầu bằng tổng 2 chữ số cuối. Theo 3 cách.
2. Viết chương trình đưa ra 30 số chia hết cho 1, 2, 3, 4, 5, 6 mà không chia hết cho 7

 

[syphuongcuong3]

1/ Cách chuối nhất :v

USES crt;
CONST
        max=4;
VAR
        i:WORD;
PROCEDURE check(n:WORD);
VAR
        i,temp:WORD;
        A:ARRAY[1..max] OF BYTE;
BEGIN
        fillchar(A,sizeof(A),0);
        temp:=n;
        FOR i:=1 TO max DO
                BEGIN
                        A[i]:=temp MOD 10;
                        temp:=temp DIV 10
                END;
        IF A[1]+A[2]=A[3]+A[4] THEN writeln(n);
END;
BEGIN
        clrscr;
        FOR i:=1000 TO 9999 DO
                check(i);
        readln;
END.