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.
b)
uses crt;
var i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
i:=1;
t:=0;
while i<=n do
begin
t:=t+1/(i*(i+3));
i:=i+1;
end;
writeln(t:4:2);
readln;
end.
bài 1
program: Tinh _Tong;
var: i,n:integer;S:real;
begin
writeln('nhap so n=');readln(n);
S:=0;
for i:=1 to N do S:=S+1/i*(i+2);
write('tong can tim la',S:0:2);
readln;
end.
bài 2
program:Tinh_tong_2;
var:i,n:integer;S:real;
begin
writeln('nhap so N=');
readln(n);
S:=0;
for i:=1 to N do S:=S+1/i;
writeln('tong can tim la',);
readln;
end.
(bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.)
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Var i, n, S: integer;
Begin
Read(n);
S:=0;
If i mod 2 = 0 then while i:=1 to n do S:=S+i;
Write (S);
Readln;
End.
Ko bt đúng ko :)
Var i, n, S: integer;
Begin
Read(n);
S:=0;
If i mod 2 = 1 then while i:=1 to n do S:=S+i;
Write (S);
Readln;
End.
Ko bt đúng ko :)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
while..do
Program HOC24;
uses crt;
var i,n: integer;
S: longint;
begin
clrscr;
write('Nhap N: '); readln(n);
i:=0; s:=0;
while i<n do
begin
i:=i+1;
s:=s+i*(i+1);
end;
write('S=',S);
readln
end.
a) uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i*(i+2);
end;
writeln(s);
readln
end.
b)
uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i;
end;
writeln(s);
readln
end.
a) uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i*(i+2);
end;
writeln(s);
readln
end.
b)
uses crt;
var s,n,i:longint;
begin
clrscr;
write('Nhap n=');
readln(n);
i:=0;
s:=0;
while i<=n do
begin
inc(i);
s:=s+1/i;
end;
writeln(s);
readln
end.
sai rồi bạn
Triều Huỳnh Phạm Long đi đâu cũng thấy bạn cứ vào chỗ bl của người khác rồi nói này nói nọ vậy, nếu nói người ta sai thì làm lại đi, cứ nhào vô rồi nói, hầu như câu nào cũng vậy, nếu tái phạm cẩn thận sẽ bị xóa mất câu trả lời. ĐỪNG BẢO LÀ KHÔNG BÁO TRƯỚC!
copy rồi paste của tui đó hử?
mik chỉ ghi thuật toán thôi, code bạn tự làm nhé
nhập n
i:=1;
s:=0;
chú ý đến dấu + cuối cùng, đó là cách tính s
bạn chỉ cần cho i chạy đến n rồi s:= s+ ( cái vế cuối cùng chỉ việc thay i vào chỗ của n)
VD câu a
while i<=n do
s:=s+ a/i*(i+2);
rồi cuối cùng xuất ra s
chúc bạn thành công