OLM cung cấp gói bải giảng điện tử PPT cho giáo viên đầu năm học

Đề khảo sát chất lượng đầu năm học cho lớp 2 đến 9, xem ngay!

K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
Mua vip
TT
Thanh Thanh
6 tháng 4 2020

Cho hỏi: if (n mod i)=0 then write(i);

nghĩa là sao ?
#Tin học lớp 8
1
NL
Nguyễn Lê Phước Thịnh
6 tháng 4 2020

có nghĩa là nếu n chia hết cho i thì viết i ra màn hình

Đúng(0)
LH
lê hà linh
15 tháng 4 2020
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ì?
#Tin học lớp 8
0
NC
Nguyễn Cảnh Hùng
12 tháng 7 2018

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
#Tin học lớp 11
2
DN
Đỗ Ngọc Trinh
12 tháng 7 2018

Đáp án đúng : A

Đúng(0)
HL
Hân Lê ngọc
17 tháng 5 2021

A

 

Đúng(0)
NC
Nguyễn Cảnh Hùng
10 tháng 2 2019

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
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
10 tháng 2 2019

Đáp án đúng : C

Đúng(0)
NC
Nguyễn Cảnh Hùng
11 tháng 10 2019

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
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
11 tháng 10 2019

Đáp án đúng : B

Đúng(0)
NC
Nguyễn Cảnh Hùng
1 tháng 12 2018

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
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
1 tháng 12 2018

Đáp án đúng : D

Đúng(0)
NC
Nhân CFM
11 tháng 5 2020
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...
Đọ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 ạ.
#Tin học lớp 11
1
ML
Minh Lệ
11 tháng 5 2020

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)
TL
Thảo Lam Nguyễn
24 tháng 3 2022

để 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
#Tin học lớp 8
0
TH
Thiên Hoàng Ân
5 tháng 4 2020
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...
Đọ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?
#Tin học lớp 8
1
ML
Minh Lệ
5 tháng 4 2020

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');

Đúng(0)
NC
Nguyễn Cảnh Hùng
10 tháng 6 2019
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....
Đọ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
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
10 tháng 6 2019

Đáp án đúng : B

Đúng(0)
Bảng xếp hạng
Tất cả Toán Vật lý Hóa học Sinh học Ngữ văn Tiếng anh Lịch sử Địa lý Tin học Công nghệ Giáo dục công dân Âm nhạc Mỹ thuật Tiếng anh thí điểm Lịch sử và Địa lý Thể dục Khoa học Tự nhiên và xã hội Đạo đức Thủ công Quốc phòng an ninh Tiếng việt Khoa học tự nhiên
  • Tuần
  • Tháng
  • Năm
Các khóa học có thể bạn quan tâm
Tổng thanh toán: 0đ (Tiết kiệm: 0đ)
Tới giỏ hàng
Yêu cầu VIP