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.
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.
Cô có thể giải thích cho e câu a và b được không cô, em không hiểu.
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.