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.

A. 1 2 3 4 5 6 7 8 9 10

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' ); A.12 3 4 5 6 7 89 10 B.Đưa ra 10 khoảng trắng C.Không có kết quả D.1098 7 6 5 4 3 2 1 Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i'); A.iiiii B.5678910 C.i D.iii Câu 3: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do If i mod 5 = 0 then write (i); Diiiii A.1 2 3 4 5 B.1 2 3 4 5 6 7 8 9 10 C.5 10 Câu 4: Đoạn chương trình sau cho kết quả...
Đọc tiếp

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,' );
A.12 3 4 5 6 7 89 10
B.Đưa ra 10 khoảng trắng
C.Không có kết quả
D.1098 7 6 5 4 3 2 1
Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write('i');
A.iiiii
B.5678910
C.i
D.iii
Câu 3: Đoạn chương trình sau cho kết quả gì?
For i:=5 to 10 do
If i mod 5 = 0 then write (i);
Diiiii
A.1 2 3 4 5
B.1 2 3 4 5 6 7 8 9 10
C.5 10
Câu 4: Đoạn chương trình sau cho kết quả gì?
S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);
A.54
B.15
C.50
D.151200
Câu 5: Cho đoạn chương trình sau:
a:=3; b:=2;
If a>b then a:=4 else b:=1;
Sau khi thực hiện đoạn chương trình trên cho kết quả:
A.a=3
B.b=2
C.a=4
D.b=1
Câu 6: Đoạn chương trình sau cho kết quả gì?
S:=0;
For i:=1 to 9 do S:=S+i;
Write(s);
A.45
B.40
C.55
Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6"
cần chọn câu lệnh nào sau đây?
A.Writeln(x:5);
B.Writeln(x);
C.Writeln("x=",x:5:2);
D.Writeln('x=',x:2:1);
Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:
A.Có phân biệt chữ hoa chữ thường.
B.Sau mỗi câu lệnh đều phải có dấu chấm phẩy.
C.Trước lệnh Else bắt buộc phải có dấu chấm phẩy.
D.Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.
Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?
A.Ctrl + Q
B.Ctrl + X
C.Alt + Q
D.Alt +X
Câu 10: Vòng lặp sau đây lặp lại mấy lần?
A:=2
For i:=0 to 7 do a:=a+1;
A.6
B.7
C.8

0
21 tháng 4 2019

Sẽ đư ra màn hình các số từ 1 đến 5 và mỗi số cách nhau 3 khoảng trống

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,’ ‘); ☒1 2 3 4 5 6 7 8 9 10 ☐Đưa ra 10 khoảng trắng ☐Không có kết quả ☐10 9 8 7 6 5 4 3 2 1 Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write(‘i’); ☐iiiiii ☒5678910 ☐i ☐iiiii Câu 3: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do If i mod 5 = 0 then write (i); ☐i i i i i ☐1 2 3 4 5 ☐1 2 3 4 5 6 7 8 9 10 ...
Đọc tiếp

Câu 1: Đoạn chương trình sau cho kết quả gì? For i:=1 to 10 do write(i,’ ‘);

☒1 2 3 4 5 6 7 8 9 10

☐Đưa ra 10 khoảng trắng

☐Không có kết quả

☐10 9 8 7 6 5 4 3 2 1

Câu 2: Đoạn chương trình sau cho kết quả gì? For i:=5 to 10 do write(‘i’);

☐iiiiii

☒5678910

☐i

☐iiiii

Câu 3: Đoạn chương trình sau cho kết quả gì?

For i:=5 to 10 do

If i mod 5 = 0 then write (i);

☐i i i i i

☐1 2 3 4 5

☐1 2 3 4 5 6 7 8 9 10

☒5 10

Câu 4: Đoạn chương trình sau cho kết quả gì?

S:=1; For i:=5 to 10 do if i mod 3 = 0 then S:=S * i; Write(S);

☒54

☐15

☐50

☐151200

Câu 5: Cho đoạn chương trình sau:

a:=3; b:=2;

If a>b then a:=4 else b:=1;

Sau khi thực hiện đoạn chương trình trên cho kết quả:

☐a=3

☐b=2

☒a=4

☐b=1

Câu 6: Đoạn chương trình sau cho kết quả gì?

S:=0;

For i:=1 to 9 do S:=S+i;

Write(s);

☐0

☒45

☐40

☐55

Câu 7: Cho x là biến thực đã được gán giá trị 13.56423. Để hiện lên màn hình nội dung “x=13.6” cần chọn câu lệnh nào sau đây?

☐Writeln(x:5);

☐Writeln(x);

☐Writeln(‘x=’,x:5:2);

☒Writeln(‘x=’,x:2:1);

Câu 8: Trong NNLT Pascal phát biểu nào sau đây là đúng:

☐Có phân biệt chữ hoa chữ thường.

☒Sau mỗi câu lệnh đều phải có dấu chấm phẩy.

☐Trước lệnh Else bắt buộc phải có dấu chấm phẩy.

☐Lệnh Readln trước câu lệnh End. Không nhất thiết phải có dấu chấm phẩy.

Câu 9: Để thoát khỏi chương trình Pascal ta sử dụng tổ hợp phím nào?

☐Ctrl + Q

☐Ctrl + X

☐Alt + Q

☒Alt + X

Câu 10: Vòng lặp sau đây lặp lại mấy lần?

A:=2

For i:=0 to 7 do a:=a+1;

☐6

☐7

☒8

☐9

0
7 tháng 3 2023

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap n: '); readln(n);

i:=1;

while i<=n do

begin

s:=s+1/sqr(i);

i:=i+1;

end;

write('S= ',s:8:2);

readln

end.

Câu 1: D

Câu 2: A

17 tháng 3 2022

6.D

7.D

17 tháng 3 2022

Câu 6 :D

17 tháng 3 2022

6.D

7.C