A[i] :=21; A[2]:= 5; A[3]:=18; A[4]:=19;

S:=0;

For i:=1 to 4 do

If A[i] mod 3 = 0 then

S:=S+A[i];

Write(s);

Cho biết kết quả in ra là bao nhiêu sau khi thực hiện đoạn chương trình bên?

A.0                 B.27                     C.39                        D.63

Giúp mình với. Mình cần gấp. Cảm ơn

1.

For I = 2 to 12 Do write ('O'), câu lệnh in ra bao nhiêu chữ O?

2.

For I = 1 to 20 Do If (...) Then write (I,'');

chỗ trống cần điền để liệt kê ra các SỐ LẺ từ 1 đến 20 là?

3.

để tính tổng 1 + 2 + ... + 100 ta thực hiện For I = 1 to 100 Do S:=......

... cần điền?

4.

S;=0; For I:=4 to 12 Do If (I mod 12=1) Then S:=S +I;

giá trị của S?

5.

S;=0; For I:=1 to 5 Do S:=S +I;

giá trị của S?

6.

For I = 1 to 10 Do If (I mod 3 = 0) Then write (I,'');

kết quả?

7.

a:= 354 If (a mod 3 = 0) them write (a mod 3) Else Write (a Div 3);

kết quả?

8.

để in ra màn hình 20 chữ C cần thực hiện?

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);

 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);

 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);

 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