Trắc nghiệm:
1B 2A 3D 4B 5C
Tự luận:
Bài 1:
uses crt;
var n,tong,i:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
tong:=0;
for i:=1 to n do tong:=tong+i;
write('Tong ',n,' so tu nhien dau tien la:',tong);
readln
END.
Bài 2:
uses crt;
var n,i:integer;
tong:real;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
tong:=0;
for i:=1 to n do tong:=tong+1/i;
write('Tong nghich dao ',n,' so tu nhien dau tien la:',tong:0:3);
readln
END.
Bài 3:
uses crt;
var n,i:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to 9 do
writeln(n,' x ',i,' = ',n*i);
write(' ');
readln
END.
Chúc bạn học tốt.
Cho mình xin câu trả lời hay nhất.
