viết đoạn lệnh kiểm tra xâu “giữa kỳ” có trong xâu không? nếu có xuất ra màn hình vị trí của nó ( giúp emm :(( )
0 bình luận về “viết đoạn lệnh kiểm tra xâu “giữa kỳ” có trong xâu không? nếu có xuất ra màn hình vị trí của nó ( giúp emm :(( )”
var n,i:integer; s:real; begin readln(n); if n mod 2 <> 0 then write(‘giua ki.’) else begin i:=2; s:=0; while i<=n do begin s:=s+1/i; i:=i+2; end; write(s:2:5); end; end.
var n,i:integer; s:real; begin readln(n); if n mod 2 <> 0 then write(‘giua ki.’) else begin i:=2; s:=0; while i<=n do begin s:=s+1/i; i:=i+2; end; write(s:2:5); end; end.