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

Thi thử và xem hướng dẫn giải chi tiết đề tham khảo 12 môn thi Tốt nghiệp THPT 2025

Tập huấn miễn phí ra đề kiểm tra và chấm phiếu trắc nghiệm dành cho giáo viên khối THCS

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
VC
Văn Chí Vĩ
5 tháng 1 2022

Cho biết kết quả chương trình sau và giải thích

program vidu;
uses crt;
var i:integer;
begin
  clrscr;
  i:=15;
  while i>1 do 
  begin
  If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
  Write(i:5);
  End;
  readln;
end.
#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
5 tháng 1 2022

Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên

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

Với M = 3 và N = 6, hãy cho biết giá trị của T sau khi thực hiện đoạn chương trình sau?

T := 0;

for i := M to N do

if i mod 5 = 0 then T := T+i;

A. 1

B. 2

C. 5

D. 9
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
27 tháng 5 2018

Đáp án đúng : C

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

Với M = 3 và N = 6, hãy cho biết giá trị của D sau khi thực hiện đoạn chương trình sau?

D:= 0;

for i:= M to N do

if i mod 5 = 0 then D:= D+1;

A. 1

B. 2

C. 5

D. 9
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
17 tháng 12 2018

Đáp án đúng : A

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

Với M = 3 và N = 6, hãy cho biết giá trị của T sau khi thực hiện đoạn chương trình sau?

T:= 0;

for i:= M to N do

if i mod 3 = 0 then T:= T+i;

A. 1

B. 2

C. 5

D. 9
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
30 tháng 11 2017

Đáp án đúng : D

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

Với M = 3 và N = 6, hãy cho biết giá trị của D sau khi thực hiện đoạn chương trình sau?

D := 0;

for i := M to N do

          if i mod 3 = 0 then D := D+1;

A. 1

B. 2

C. 5

D. 9
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
25 tháng 11 2018

Đáp án đúng : B

Đú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)
NC
Nguyễn Cảnh Hùng
24 tháng 8 2019
Cho đoạn chương trình sau:Var g:text;    I:integer;Begin Assign(g, ‘C:\DLA.txt’); Rewrite(g); For i:=1 to 10 do If i mod 2 = 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8; 10 B. 1; 3; 5; 9 C. 1; 3; 5; 7; 9 D. 4; 6; 8;...
Đọc tiếp

Cho đoạn chương trình sau:

Var g:text;

    I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 = 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8; 10

B. 1; 3; 5; 9

C. 1; 3; 5; 7; 9

D. 4; 6; 8; 10
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
24 tháng 8 2019

Đáp án đúng : A

Đúng(0)
NC
Nguyễn Cảnh Hùng
9 tháng 3 2019
Cho đoạn chương trình sau:Var g:text; I:integer;Begin Assign(g, ‘C:\DLA.txt’); Rewrite(g); For i:=1 to 10 do If i mod 2 <> 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8;10 B. 1; 3; 5; 9 C. 1; 3; 5; 7; 9 D. 4; 6; 8;...
Đọc tiếp

Cho đoạn chương trình sau:

Var g:text;

 I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 <> 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8;10

B. 1; 3; 5; 9

C. 1; 3; 5; 7; 9

D. 4; 6; 8; 10
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
9 tháng 3 2019

Đáp án đúng : C

Đúng(0)
NC
Nguyễn Cảnh Hùng
18 tháng 11 2018
Cho đoạn chương trình sau:Var g:text; I:integer;Begin Assign(g, ‘C:\DLA.txt’); Rewrite(g); For i:=1 to 10 do If i mod 2 = 0 then write(g, i); Close(g); ReadlnEnd. Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào? A. 2; 4; 6; 8;10 B. 1; 3; 5; 9 C. 1; 3; 5;7; 9 D. 4; 6;...
Đọc tiếp

Cho đoạn chương trình sau:

Var g:text;

 I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 = 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

A. 2; 4; 6; 8;10

B. 1; 3; 5; 9

C. 1; 3; 5;7; 9

D. 4; 6; 8;10
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
18 tháng 11 2018

Đáp án đúng : A

Đú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