Tham gia Khóa học hè 2024 trên OLM ngay tại đây!

Miễn phí ĐGNL đầu hè, làm bài ngay tại đây

📢 Lịch livestream khóa học hè tuần 3, tham gia 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.

Mua vip
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
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)
NV
Nguyễn Văn Thắng
9 tháng 5 2021

Cho khai báo mảng Var A: Array[1..10000] of integer; n, i: word; Begin Readln(n); For i:=1 to n do read(A[i]); End. Chương trình trên thực hiện công việc nào
#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
9 tháng 5 2021

thực hiện công việc nhập n số từ bàn phím

Đúng(0)
AL
Anh Lê duy
29 tháng 11 2021
Chương  trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?   Var        A:array[1..5] of integerl;        I:intege;    Begin        For I=1 to 5 do              Begin                Write('so nguyên thứ ',I);                readln(a[I]);             End;        For I=1 to 5 do            If a[I]>=0 then writeln([a],', '); End.Select one:a. -2,-4,6b. 1,6,9c. -2,-4d....
Đọc tiếp

Chương  trình sau in ra kết quả gì khi ta nhập các số 1,-2,-4,6,9 ?

   Var

        A:array[1..5] of integerl;

        I:intege;

    Begin

        For I=1 to 5 do

              Begin

                Write('so nguyên thứ ',I);

                readln(a[I]);

             End;

        For I=1 to 5 do

            If a[I]>=0 then writeln([a],', ');

 End.

Select one:

a. -2,-4,6

b. 1,6,9

c. -2,-4

d. 1,-2,-4,6,9

 
#Tin học lớp 11
0
AL
Anh Lê duy
29 tháng 11 2021
Chương trình sau giải quyết vấn đề gì?  Var   a:array[1..4] of integer;  Begin        For i:=1 to 4 do        Begin           Write('nhap cac phan tu A[',i,']:');            readln (a[i]);        End;        For i:=1 to 3 do        For j:= I+1 to 4 do             If a[i]> a[j] then               Begin                   tg:=a[i];                   a[i]:=a[j];                   a[j]:=tg;               end;         For I:=1 to  4 do         Write(a[i]);    End.Select one:a. sắp xếp...
Đọc tiếp

Chương trình sau giải quyết vấn đề gì?

  Var   a:array[1..4] of integer;

  Begin

        For i:=1 to 4 do

        Begin

           Write('nhap cac phan tu A[',i,']:');

            readln (a[i]);

        End;

        For i:=1 to 3 do

        For j:= I+1 to 4 do

             If a[i]> a[j] then

               Begin

                   tg:=a[i];

                   a[i]:=a[j];

                   a[j]:=tg;

               end;

         For I:=1 to  4 do

         Write(a[i]);

    End.

Select one:

a. sắp xếp các phần tử của mảng theo trật tự tăng dần

b. Tìm Max

c. sắp xếp các phần tử của mảng theo trật tự giảm dần

d. Chương trình có lỗi
#Tin học lớp 11
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)
NC
Nguyễn Cảnh Hùng
13 tháng 2 2017
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
13 tháng 2 2017

Đáp án đúng : C

Đúng(0)
NH
Nhi Hoàng
17 tháng 3 2022

Cho khai báo Var S:String [100]; thao tác nào sau đây để nhập dữ liệu từ bàn phím xâu S là đúng ? A,Read/readln(S); B,for i :=1 to 100 do Read (S[i]; C ,Read/Readln (S[100]); D,For i :=1 to 100 do Read (S(i));

#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
17 tháng 3 2022

Chọn 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