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.
A: Trắc Nghiệm
Câu 1: C
Câu 2: B
Câu 3: A
B: Tự Luận
Câu 4:
uses crt;
var n,i:integer;
p:longint;
begin
clrscr;
write('nhap n='); readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln(n,'!=',p);
readln;
end.
Câu 5:
uses crt;
var a:real;
i,n:integer;
begin
clrscr;
write('nhap n='); readln(n);
a:=0;
for i:=1 to n do
a:=a+1/(i*(i+2));
writeln('A=',a:4:2);
readln;
end.
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+(n*(n+1))/((n+2)*(n+3));
writeln(s:4:2);
readln;
end.
a) Thuật toán 1:
- Số vòng lặp trong thuật toán : 4
- Gía trị S =3
b) Thuật toán 2:
- Số vòng lặp trong thuật toán : 4
- Gía trị S =3
Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để
Program hotrotinhoc_hoc24;
var i,j: integer;
begin
for i:=1 to 9 do
begin
writeln('Bang nhan ',i);
for j:=1 to 10 do writeln(i,'*',j,'=',i*j);
end;
readln
end.
var n,i,s:longint;
begin clrscr;
wroite('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+2*i+1;
write(s);
readln;
end.