viết chương trình đếm và in ra số lượng các số nguyên chia hết Cho 3 hoặc 7 nằm trong đoạn 1 đến 100 ( bằng For -do)
2 câu trả lời
lâu rồi mình chưa code pascal nên code cơ bản với code không hay được :<
program ctdem;
uses crt;
var
i,dem:longint;
begin
dem:=0;
for i:=1 to 100 do
begin
if i mod 3=0
then dem:=dem+1;
else if i mod 7=0
then dem:=dem+1;
end;
writeln (dem);
end.
uses crt;
var i,dem:byte;
begin
clrscr;
for i:=1 to n do
if (i mod 3 = 0) or (i mod 7 = 0) then dem:=dem+1;
write('So luong cac so nguyen chia het cho 3 hoac 7 la: ',dem);
readln;
end.
Câu hỏi trong lớp
Xem thêm