Kiểm tra có bao nhiêu số nguyên từ N đến M chia hết cho 3
2 câu trả lời
program ct;
uses crt;
var n,m,a,s:longint;
begin
clrscr;
write('nhap n');readln(n);
write('nhap m: ');readln(m);
a:=n;
for i:=n to m do
begin
while a<m do
a:=a+1;
if a mod 3=o then s:=s+1;
end;
writeln('co',s,'chia het cho 3');
readln;
end.
Program Hotboy;
Uses crt;
Var i,n,dem,s : integer;
Begin
Clrscr;
Dem:=0;s:=0;
Write('nhap so nguyen N'); readln(n);
For i:=1 to n do
begin
If i mod 3= 0 then dem:=dem+1;
end;
for i:=1 to n do
begin
if i mod 3= 0 then S:=s+i;
end;
Writeln('tong cac so tu 1 den N chia het cho 3 la',S);
writeln(' so cac so chia het cho ba la',dem);
Readln
End.
Câu hỏi trong lớp
Xem thêm
