C1 viết chương trình tính dãy số thập phân từ 1+1/2+1+1/3+1/4...+1/9
C2 nhập vào 1 số nguyên N, in ra tổng các số lẻ từ 1--->N
Giúp tuii đyyy !!
1:
uses crt;
var i:integer;
s:real;
begin
clrscr;
s:=0;
for i:=1 to 9 do
s:=s+1/i;
writeln('s=',s:4:2);
readln;
end.
2:
uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2<>0 then t:=t+i;
writeln(t);
readln;
end.
B1: Nhấp chuột phải vào file cần chuyển.B2: Nhấp vào dòng Send To rồi chọn ổ mà mình muốn gửi sang.B3: Xong rồi, kiểm tra lại kết quả thôi.