OLM giới thiệu Bộ đề kiểm tra giữa kỳ I giúp đạt điểm 10, xem ngay!

Cuộc thi vẽ tranh chào mừng ngày 20/10, 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.

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
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
LN
Loi Nguyen
4 tháng 4 2021

Ai sửa giúp mình với type Myaray=array [0..9] of Integer; var i:Myaray;

s:String;

a,b:Integer;

begin

Write('nhap xau: ');

readln(s);

a:=0;

for b:=1 to length(s) do

while pos(i,s)<>0 do begin a:=a+1;

Write(a);

end;

while pos(i,s)=0 do write(a);

readln

end.
#Tin học lớp 11
1
NA
nguyễn an phát
17 tháng 5 2021

sữa i bằng b đi bạn ơi

Đúng(0)
NT
Nông trang
28 tháng 4 2021

Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì S1 := 'hong'; S2 := 'hoa'; i :=pos(S2, S); While i 0 do Begin Delete(S,i,2); Insert(S1,S,i); i := pos (S2,S); End;
#Tin học lớp 11
1
NL
Nguyễn Lê Phước Thịnh
28 tháng 4 2021

Sửa đề: S:='hong';

Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s

Đúng(1)
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)
LV
Lan Võ
25 tháng 4 2023

Cho biết giá trị của d sau khi thực hiện đoạn chương trình sau: S:='Hoang Thi Thu Hong' ; d:=0; For i:=1 to length(S) do Begin S[i]:= Upcase(s[i]); If s[i]= 'H' then d:= d+1; End;
#Tin học lớp 11
1
ML
Minh Lệ
25 tháng 4 2023

Dịch chương trình: Đây là đoạn chương trình in hoa tất cả các kí tự trong xâu và đếm số lượng chữ cái H trong xâu.

S = 'Hoang Thi Thu Hong' sau khi in hoa S = 'HOANG THI THU HONG'

-> Trong xâu S có 4 kí tự 'H' => d = 4

Đúng(2)
HP
hoài phương
21 tháng 12 2021
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:S:=0;FOR i:=1 to 15 DO IF a[i] mod 2 = 0 THEN         S:=S+a[i];writeln(‘S =...
Đọc tiếp

Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 15 DO
 IF a[i] mod 2 = 0 THEN 
        S:=S+a[i];
writeln(‘S = ’,S);
#Tin học lớp 11
1
L
Luminos
21 tháng 12 2021

S=6

Đúng(1)
NC
Nguyễn Cảnh Hùng
8 tháng 4 2017
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)S := 0; For i := 1 to N do S := S+a[i]; A. In ra màn hình của mảng A B. Đếm các phần tử của mảng A C. Tính tổng các phần tử của mảng A D. Không thực hiện việc nào trong 3 việc...
Đọc tiếp

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)

S := 0;

For i := 1 to N do S := S+a[i];

A. In ra màn hình của mảng A

B. Đếm các phần tử của mảng A

C. Tính tổng các phần tử của mảng A

D. Không thực hiện việc nào trong 3 việc trên
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
8 tháng 4 2017

Đáp án đúng : C

Đúng(0)
NC
Nguyễn Cảnh Hùng
17 tháng 2 2017
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.Cho biết kết quả sau khi thực hiện đoạn chương trình sau:S:=0;FOR i:=1 to 5 DOIF a[i] mod 2 = 0 THEN S:=S+a[i];writeln(‘S = ’,S); A. 6 B. S = 6 C. 9 D. S =...
Đọc tiếp

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Cho biết kết quả sau khi thực hiện đoạn chương trình sau:

S:=0;

FOR i:=1 to 5 DO

IF a[i] mod 2 = 0 THEN S:=S+a[i];

writeln(‘S = ’,S);

A. 6

B. S = 6

C. 9

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

Đáp án đúng : B

Đúng(0)
NC
Nguyễn Cảnh Hùng
13 tháng 7 2019
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.Xét đoạn chương trình sau:S := 0;For i := 1 to 5 do       If a[i] mod 2 = 0 then S := S+a[i];Write(S);Kết quả hiện ra màn hình là: A. S=6 B. 6 C. 9 D....
Đọc tiếp

Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.

Xét đoạn chương trình sau:

S := 0;

For i := 1 to 5 do

       If a[i] mod 2 = 0 then S := S+a[i];

Write(S);

Kết quả hiện ra màn hình là:

A. S=6

B. 6

C. 9

D. S=9
#Tin học lớp 11
1
DN
Đỗ Ngọc Trinh
13 tháng 7 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