Cho hỏi: if (n mod i)=0 then write(i);
nghĩa là sao ?
Những câu hỏi liên quan
n:=10; s:=0; for i:=1 to n do if n mod i=0 then s:=s+i; Write(s); Hỏi s=? *
a:=123; b:=456; IF a>b THEN a:=a-b ELSE b:=b+a; Write('a=',a,'b=',b); Hỏi a=? b=?
n:=12345; if n mod 2 = 0 then write(' Y') else write('N'); hỏi kết quả trên màn hình là gì?
Xem chi tiết
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 3=0) then Tong:=Tong + i;
Write(Tong);
A. 3
B. 1
C. 6
D. 2
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + i;
Write(Tong);
A. 3
B. 1
C. 6
D. 2
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 3=0) then Tong:=Tong + 1;
Write(Tong);
A. 3
B. 1
C. 6
D. 2
Cho biết kết quả của đoạn chương trình sau?
N:=5; Tong:=0;
For i:=1 to n do
If (i mod 2=0) then Tong:=Tong + 1;
Write(Tong);
A. 3
B. 1
C. 6
D. 2
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n ’); readln(n);
For i:1 to n do
Begin
Write(‘a[‘,i,’]’); readln(a[i]);
End;
s:0;
for i:1 to n do
if (a[i]mod 21) then s:s+a[i];
write(‘tong so le ’,s);
d:0;
for i:1 to n do
if (a[i]mod 30) then d:d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:1 to n do b[i]:2*a[i];
For i:1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với...
Đọc tiếp
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);
d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé
Đúng 0
Bình luận (0)
để tính tổng s=2+4+6 ... +n;
em chọn lệnh:
a) for i:=1 to n do if (i mod 2)=0 then s:=s+1;
b) for i:=1 to n do if (i mod 2) <> 2 then s:=s+1;
c) for i:=1 to n do s:=s+1;
d) for i:=1 to n do if (i mod 2) = 1 then s:=s+1;
mn giúp em với ạ, cảm ơn mn nhiều
1.
For I 2 to 12 Do write (O), câu lệnh in ra bao nhiêu chữ O?
2.
For I 1 to 20 Do If (...) Then write (I,);
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I 1 to 100 Do S:......
... cần điền?
4.
S;0; For I:4 to 12 Do If (I mod 121) Then S:S +I;
giá trị của S?
5.
S;0; For I:1 to 5 Do S:S +I;
giá trị của S?
6.
For I 1 to 10 Do If (I mod 3 0) Then write (I,);
kết quả?
7.
a: 354 If (a mod 3 0) them write (a...
Đọc tiếp
1.
For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O?
2.
For I = 1 to 20 Do If (...) Then write (I,'');
chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?
3.
để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=......
... cần điền?
4.
S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I;
giá trị của S?
5.
S;=0; For I:=1 to 5 Do S:=S +I;
giá trị của S?
6.
For I = 1 to 10 Do If (I mod 3 = 0) Then write (I,'');
kết quả?
7.
a:= 354 If (a mod 3 = 0) them write (a mod 3) Else Write (a Div 3);
kết quả?
8.
để in ra màn hình 20 chữ C cần thực hiện?
1) 11
2) I mod 2=1
3) S+i;
4) 0
5) 15
6) 3 6 9
7) 0
8) for i:=1 to 20 do write('C');
Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:i:1;While i 5 do Begin if I mod 2 0 then Write(‘TIN HOC’); i:i+1;End;Chữ TIN HOC được in ra màn hình mấy lần A. 3 B. 2 C. 1 D. 0
Đọc tiếp
Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:
i:=1;
While i <5 do
Begin
if I mod 2 = 0 then Write(‘TIN HOC’);
i:=i+1;
End;
Chữ TIN HOC được in ra màn hình mấy lần
A. 3
B. 2
C. 1
D. 0