Viết chương trình nhập vào từ bàn phím một số n nguyên thỏa mãn n lớn hơn hoặc bằng 2 và nhỏ hơn 100
2 câu trả lời
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<100) then
begin
s:=0;
for i:=2 to n do
s:=s+(i/(i+2));
writeln('tong la: ',s);
end
else writeln;
readln;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<100) then
begin
s:=0;
for i:=2 to n do
s:=s+(i/(i+2));
writeln('tong la: ',s);
end
else writeln('vui long nhap lai');
readln;
end.
Chúc bạn học tốt.
Câu hỏi trong lớp
Xem thêm
