Tính tổng 1 1+2 1 3 1/n trong pascal

Tính tổng S biết S(n) = 1^2 + 2^2 +3^2 +4^2+… + k^2 sao cho tất cả các giá trị từ 1^2 đến k^2 phải nhỏ hơn hoặc bằng n

1. viết chương trình cho người dùng nhập n . In ra tổng của S

2.trình bày ra giấy tính độ phức tạp của chương trình vừa thực hiện 

Mn làm giúp mình với ạ . Càng sớm càng tốt :((

var i, n : integer; S : real;

writeln('Nhap so thu n: '); readln(n);

writeln('Tong la: ',S:2:3);

baonhi09 đã chọn câu trả lời này

chơi thế thì lúc nào chả hạng nhất

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

write('Nhập số n');readln(n);

For t:=1 to n do s:=s+1/t;

write('Nhập số n');readln(n);

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.

Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:

• Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ (10 ≤ A, M  ≤ 103).
• Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.

Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:

• Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát (mỗi số cách nhau một ký tự trắng).
• Hàng 2: lần lượt là số áo, số mũ còn thừa.

23/10/2022 |   0 Trả lời