Các câu hỏi tương tự
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a mod b ; Write(x);
End.
A. 10
B. 33
C. 3
D. 6
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 30; x := a div b; Write(x);
End.
A. 10
B. 33
C. 3
D. 1
Cho biết kết quả sau khi thực hiện lệnh:
Begin
a := 100; b := 15; x := a div b ; Write(x);
End.
A. 10
B. 33
C. 3
D. 6
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:D:0; FOR i:1 to 5 DOIF a[i] mod 2 1 THEN D:D+1; writeln(‘D ’,D); A. D 2 B. 2 C. 3 D. D 3
Đọ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:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 1 THEN D:=D+1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
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:D:0;FOR i:1 to 5 DO IF a[i] mod 2 0 THEN D: D + 1;writeln(‘D ’,D); A. D 2 B. 2 C. 3 D. D 3
Đọ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:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN D:= D + 1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
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);
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
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; 10
Đọ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
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; 10
Đọ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