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.
g
4a
5d
7 không đáp án nào đúng đâu bạn
8c
9a
12a
13a
14d
15c
16c
17b
19c
chúc bạn thi tốt 
mình đang cần gấp
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
Tự luận:
Câu 1: Các câu lệnh của vòng lặp không có câu lệnh kết thúc điều kiện thì vòng lặp sẽ lặp vô hạn.
Câu 2: Máy thực hiện 5 vòng lặp:
Vòng lặp 1: M=2
Vòng lặp 2: M=4
Vòng lặp 3: M=6
Vòng lặp 5: M=8
Vòng lặp 5: M=10
Câu 3:
program tỉntong;
uses crt;
var s :real; i, n : integer;
begin
clrscr;
write('So thu n la: '); readln(n);
S:=0; i:=1;
while i<= n do begin
S:=S+1/i; i:= i+1; end;
writeln('Tong cac so do la: ',S:2:3);
readln
end.
Ko hiểu chỗ nào thì bạn hỏi nhé!
thiếu hai dấu chấm phẩy ";" ở: 
sửa thành:
TB: real;
A: array [1..100] of real;
lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:
và 
và 
Sửa lại thành:
readln (a[i]);
TB:=0;
TB:=TB/n;
Cần có thêm readln trên end. để dừng chương trình lại để xem.
Program luy_thua;
Uses crt;
Var a, i, n: integer;
Begin
Write('Nhap co so a: '); readln(a);
Write('Nhap so mu n: '); readln(n);
For i:=1 to n do a:=a*a;
Writeln('Gia tri a luy thua n la: ', a);
Readln;
End.
Câu 1:
uses crt;
var n,i,ln,max,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
max:=0;
ln:=1;
for i:=1 to n do
begin
t:=0;
for j:=1 to i do
if i mod j=0 then t:=t+j;
if ln<t then max:=i;
end;
writeln(max);
readln;
end.
Cho n =1000000 thì load hơi chậm bạn à, với lại mấy cái biến phải là longint chứ nhỉ