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.

Bài 1:

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 2:

Program BTT;
Uses crt;
Var x,y,s,i: longint;

Function CP(a: longint): boolean;
Begin
        If a = sqr(trunc(sqrt(a))) then exit(true);
        exit(false);
End;

Function HCP(a: longint): boolean;
Begin
        If (CP(a)) and (CP(trunc(sqrt(a)))) then exit(true);
        exit(false);
End;

Begin
        Clrscr;
        Write('Nhap x,y: '); Readln(x,y);
        s:=0;
        For i:=x to y do
                If HCP(i) then s:=s+i;
        Write('S = ',s);
        Readln
End.