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