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.
- Biến đếm, giá trị đầu, giá trị cuối là kiểu số nguyên
- Giá trị cuối lớn hơn hoặc bằng giá trị đầu
Khi thực hiện, ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
Câu 1: C
Câu 2: D
Câu 3: B
Câu 4: A
Câu 5: D
Câu 6: A
Câu 7: C
Câu 8: Không có câu nào đúng
I: Trắc nghiệm
Câu 1: C
Câu 2: A
Câu 3: C
Câu 4: C
Câu 5: C
Câu 6: D
Câu 7: B
Câu 8: D
Câu 9: C
Câu 10: B
Câu 11: D
Câu 12: B
Câu 13: B
Câu 14: A
Câu 15: B
Câu 16: B
Câu 17: Không rõ câu hỏi
Câu 18: B
Câu 19: B
Câu 20: B
Câu 21: A
Câu 22: C
Câu 23: B
Câu 24: A
II: Bài tập:
uses crt;
var i,s,n:longint;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 3=0 then s:=s+i;
writeln('tong cac so tu nhien chia het cho 3 khong vuot qua ',n,' la: ',s);
readln;
end.
Phần II: Bài tập
Câu 1:
Sau khi thực hiện chương trình, chương trình sẽ báo lỗi thiếu begin
Câu 2:
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
II: Tự luận
Bài 1:
uses crt;
var n,i,a,c,e:integer;
begin
clrscr;
write('nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+i;
writeln('A=',a);
if (n mod 2=0) and (n>=0) then
begin
c:=0;
for i:=2 to n do
if i mod 2=0 then c:=c+i;
writeln('C=',c);
end
else begin
e:=0;
for i:=1 to n do
if i mod 2=1 then e:=e+i;
writeln('E=',e);
end;
readln;
end.
Bài 2:
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
write('nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
Bài 3:
uses crt;
var x,n,i:integer;
lt:real;
begin
clrscr;
write('nhap co so x:'); readln(x);
write('nhap so mu n:'); readln(n);
lt:=1;
for i:=1 to n do
lt:=lt*x;
writeln(x,'^',n,'=',lt:0:0);
readln;
end.
Bài 4:
uses crt;
var a:array[1..100]of integer;
n,i,max,min:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('So nho nhat la: ',min);
readln;
end.
Câu 13: B
Câu 14: 10 lần
Câu 15: B
Câu 16: A
Câu 17: A
Câu 18: A
Câu 19: C
Câu 20:D