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.
Lời giải :
program hotrotinhoc;
var i,n : integer;
T,S : real ;
begin
write('Nhap n='); readln(n);
while (n>1) or (n>2018) do
begin
write('n chua thoa man yeu cau nhap lai n='); readln(n);
end;
for i:= 1 to n do
S:=S+1/((i-1)+i) ;
T:=S+2018;
write('S=',S);
readln
end.
Cảm ơn bạn nhé! Mình giải ra rồi. Bạn giúp mình bài này với:
Nhập vào một dãy số rồi kiểm tra xem:
a. Mảng đã được sắp xếp tăng dần chưa? Giam dần?
b. Nếu mảng chưa sắp tăng hoặc giảm thì yêu cầu sắp xếp tăng dần
Câu 3:
a) S:=0;i:=1;
While S<100 do
Begin S:=S+1;
i:=i+2;
end;
b) For i:=1.2 to 5.7 do (Sai)
-> giá trị đầu, giá trị cuối phải là số nguyên
- S:=S+i;
Câu 1 :
program tinhtong;
uses crt;
var S,i : integer;
begin
clrscr;
S:=0; i:=0;
while S <= 30 do
begin i:=i+1; S:=S+i end;
writeln('S= ',S);
readln;
end.
program tong;
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
s:=s+(1/(i*2));
write('tong la:',s:0:2);
readln;
end.
