Mình có vài bài tập ( KT1 tiết )

[doonyin]

Ngày mai mình làm rồi nhưng vẫn chưa hiểu rõ lắm về lệnh while do

1) Nhập bàn phím số thuộc R
Tìm và đưa ra màn hình số nguyên N nhỏ nhất thỏa điều kiện
R< N(n ở trên chữ N ) (i=0 ở dưới chữ N) 1/i
2) Lập trình tính tổng của các số nguyên dương
Vd: N:=215
Tổng:= 22 + 12 + 52 +…..

Các bạn giúp mình nha !

[lehang_gb1]

Bạn viết đề cho rõ hơn được không
Cho nội dung vào code và /code

[=========> Bổ sung bài viết <=========]

sadfsafdsfdsfds
code
/
code

[quangtq]

Bài 1 i phải chạy từ 1, vì 1/0 ko xác định.
Ý bạn có phải là tổng các 1/i với i=1..n đúng ko


S:=0;
N:=1;
While R>=S do Begin S:=S+1/N; N:=N+1; End;
Writeln(N);

Bài 2 chưa rõ ràng.
Có phải là mỗi chữ số đc ghép với chính nó và các chữ số còn lại ko.
Nếu thế thì đây là code


Var S:String;
temp,code:Integer;
.....
Readln(S); n:=length(s);
S:=0;
For i:=1 to n do
Begin
st:=''+s[i];
For j:=1 to n do If j<>i then st:=st+s[j];
Val(st,temp,code); S:=S+temp;
End;
For i:=1 to n do
Begin
st:='';
For j:=1 to n-1 do st:=st+s[i];
Val(st,temp,code); S:=S+temp;
End;
Writeln(S);

[doonyin]

Cám ơn các bạn !

Val(st,temp,code); S:=S+temp;
End;
For i:=1 to n do
Begin
st:='';
For j:=1 to n-1 do st:=st+s[i];
Val(st,temp,code); S:=S+temp;
Temp, code, st ?