

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Câu 1: D
Câu 2: C
Câu 3: D
Câu 4: B
Câu 5: B
Câu 6: B
Câu 7: A
Câu 8: D
Câu 9: A
Câu 10: C
Câu 11: D
Câu 12: A
Câu 13: A
Câu 14: D
Câu 15: A
Câu 16: B
Câu 17: B
Câu 18: A
Câu 19: Không có đáp án đúng
Câu 20: B
Câu 21: C
Câu 22: B
Câu 23: B
Câu 24: B
Câu 25: A
Thực hành:
Câu 1:
Program TinhTong;
Uses crt;
Var n,res: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
res:=n*(n+1) div 2;
Write('Tong cac so tu nhien tu 1 den n: ',res);
Readln
End.
Câu 2:
Program TinhTich;
Uses crt;
Var n,i: longint;
res: qword;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
res:=1;
For i:=1 to n do
res:=res*i;
Write('Tich = ',res);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
1D. readln(x)
2C. Writeln(a*a) (nhưng có thể dùng câu lệnh sqr(a) để bình phương a)
3D. Readln(x);
4B. 16 mod 5 = 1
5B. Một số thực bất kì (có thể là số nguyên) trong phạm vi cho phép.
6B. var m:integer ;
7A. Const
8D. Hằng.
9A. Var Tong : Real;
10C. Var.
11D. x:= x +5;
12A. 12
13A. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
14D. Ngày tắm 2 lần
15A. Một lệnh thay cho nhiều lệnh
16B. Khi biến đếm lớn hơn giá trị cuối
17B. for i:=1 to 10 do x:=x+1;
18A. Integer
19A. ( < giá trị cuối > - < giá trị đầu >) lần
(Thực ra là <gt cuối> - <gt đầu>+1 mới đúng)
20B. 100
21C. Đúng hoặc sai
22B. 15
23B. for < biến đếm> := < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >;
24B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
25A. Lặp với số lần biết trước
dài quá mà có 10 đ bạn có thể hỏi 2 câu tự luận 20 đ cho có nhiều người trả lời bạn
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin