1/ Đoạn chương trinh sau thực hiện i:=1; S:=0; While (i < N) Do begin S:=S+i; i:= i+2; end; Write('S = ',S); a.T...

Nguyễn Lê Phước Thịnh

30 tháng 3 2022

Câu 1: A

Câu 2: Không có câu nào đúng

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 =...

Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!

Nguyễn Cảnh Hùng

17 tháng 2 2017

Đỗ Ngọc Trinh

17 tháng 2 2017

Đáp án đúng : B

Nguyễn Cảnh Hùng

26 tháng 12 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.

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 = 1 THEN S:=S+a[i];

writeln(‘S = ’,S);

A. 6

B. S = 6

C. 9

D. S = 9

Đỗ Ngọc Trinh

26 tháng 12 2019

Đáp án đúng : D

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....

Nguyễn Cảnh Hùng

13 tháng 7 2019

Đỗ Ngọc Trinh

13 tháng 7 2019

Đáp án đúng : B

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...

Nhân CFM

11 tháng 5 2020

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é

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 = 1 then S := S+a[i];Write(S);Kết quả hiện ra màn hình là: A. 9 B. S=6 C. 6 D....

Nguyễn Cảnh Hùng

28 tháng 8 2019

Đỗ Ngọc Trinh

28 tháng 8 2019

Đáp án đúng : A

Câu 1(3đ). Hãy khai báo mảng một chiều lưu trữ 100 phần tử số nguyên có giá trị trong khoảng từ 0 đến 255 bằng cách: a. Trực tiếp; b. Gián tiếp: c. Tham chiếu đến phần tử thứ 50 và gán giá trị bằng 45. Câu 2(4đ). Viết chương trình nhập N và N số nguyên a,, a2,..an. Tính tổng các phần tử chăn chia hết cho 3. Câu 3 (3đ). Cho đoạn chương trình sau: a. Với: N=6; k=8 A= 45 56 73 64 55 98 Program Bai3; Type KM-array[1..100] of...

Lê Băng

8 tháng 5 2020

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.

nguyễn an phát

17 tháng 5 2021

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

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...

Nguyễn Cảnh Hùng

8 tháng 4 2017

Đỗ Ngọc Trinh

8 tháng 4 2017

Đáp án đúng : C

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;