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.

Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào? A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần? A. nhiều lần B. 2 C. 11 D. 10 Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì? A. Biến đếm B. giá trị đầu C. giá...
Đọc tiếp

Câu 1: Sau mỗi lần thực hiện câu lệnh thì giá trị biến đếm như thế nào?

A. không thay đổi B. sẽ giảm xuống C. sẽ tăng lên D. điều chỉnh tự động

Câu 10: Cho câu lệnh for i := 10 downto 1 do write(i); Cho biết câu lệnh Write(i) thực hiện bao nhiêu lần?

A. nhiều lần B. 2 C. 11 D. 10

Câu 2: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết 10 là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 3: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết i là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 4: Trong câu lệnh for i := 10 downto 1 do write(i); Cho biết write(i) là gì?

A. Biến đếm B. giá trị đầu C. giá trị cuối D. câu lệnh

Câu 5. Cho câu lệnh for i := 1 to 4 do write(i:2); Kết quả là :

A. 4 3 2 1 B. 1 2 3 4 C. 1 D. 4

Câu 6: Chọn câu lệnh lặp để tính T = \(\Sigma^{50}_{n=1}n+a\)

A. T:=0 ; For i := 1 to n do T := T+i+a;

B.T:=0 ; For i := n downto 1 do T := T+i+a;

C. T:=0 ; For n := 1 to 50 do T := T+n+a;

D.T:=0 ; For n := 1 downto 50 do T := T+n+a;

Câu 7: Biến đếm có kiểu số nguyên thì giá trị đầu và giá trị cuối phải có kiểu gì?

A. Số thực B. Số nguyên C. Logic D. kiểu gì cũng được

1d-2d-3c-4d-5b-6c-7b trong đáp án này có 1 câu sai, đó là câu nào ?

1
13 tháng 4 2020

Lúc nãy mình nhập nhầm đáp án, nhờ mn tìm ra đáp án sai giúp mình

1d-10d-2c-3a-4d-5b-6c-7b

7 tháng 5 2020

Câu 1: Để tính diện tích của hình thang, lệnh gán nào sau đây là đúng?

\n\n

A. S: (a+b)*H/2; B. S=(a+b)*H/2; C. S:=(a+b)*H/2 ;D. S;= (a+b)*H/2;

\n\n

Câu 2: Biến T có thể nhận các giá trị 5,5; 7,3; 8,9; 34; 12. Ta có thể khai báo T thuộc kiểu dữ liệu gì?

\n\n

A. Byte B. Word C. Real D. Integer

\n\n

Câu 3: Để nhập giá trị vào và gán cho biến x ta thực hiện lệnh nào sau đây ?

\n\n

A. Write(x); B. Real(x); C. Writeln(x); D. Readln(x);

\n\n

Câu 4: Trong Pascal, biểu thức nào biểu diễn biểu thức tính chu vi hình chữ nhật với 2 cạnh a và b?

\n\n

A. a*b B. a+b*2 C. (a+b)*2 D. a*b*2

\n\n

Câu 5: Biểu thức Logic nào sau đây dùng để kiểm tra N là số chẵn hay lẽ?

\n\n

A. N mod 2 <> 0 B. N div 2 <> 0 C. N > 0 D. N – 2 > 0

\n
5 tháng 10 2020

- crt: khai báo thư viện crt

- clrscr: xóa màn hình keét quả

- readln: dừng chương trình

- var: khai báo biến

- write: in ra màn hình

P/s: Ko chăc

8 tháng 1 2020
https://i.imgur.com/WKsxtEW.png
8 tháng 1 2020

uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.

2 tháng 10 2025

b² - 4ac

2 tháng 10 2025

\(\frac{b^2-\sqrt{4ac}}{2a}\)

18 tháng 3 2020

uses crt: thư viện crt;

var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực

d,x1,x2: real là khai báo d,x1,x2 kiểu số thực

begin: bắt đầu

write('a,b,c:'); : viết(a,b,c)

readln(a,b,c); : đọc(a,b,c)

d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c

if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')

else: ngược lại

gán x1,x2 lần lượt là hai nghiệm của phương trình

xuất hai nghiệm đó ra màn hình

xong rồi readln; end. có nghĩa là kết thúc chương trình

20 tháng 4 2020

Program hotrotinhoc;

var hoa,bo,bl : integer;

begin

write('Nhap so bong hoa :',hoa);

bo:=hoa div 12;

bl:=hoa mod 12;

writeln('Co ',bo,' bo hoa');

write('Co ',bl,' bong hoa le');

readln

end.