Viết 1 chương trình nhập 3 số nguyên dương x, y, z (xsy). Đêm những số chia hết cho 7 và không chia hết cho z trong đoạn [x,y] rồi dưa kết quả ra màn hình. Chú ý: Chỉ được sử dụng vòng lặp for-do.

Program BTT;
Uses crt;
Var x,y,z,i,d: longint;
Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        Write('Nhap y: '); Readln(y);
        Write('Nhap z: '); Readln(z);

        d:=0;
        For i:=x to y do
                If (i mod z <> 0) and (i mod 7 = 0) then inc(d);
        Write(d);
        Readln
End.

Bài 1:

var x,y,z,d,i:integer;

begin

write('Nhap x,y,z: '); readln(x,y,z);

for i:=x to y do if (i mod 7 = 0) and (i mod z <>0) then inc(d);

write('So so la: ',d);

readln

end.