HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
tinh tong nghich dao tu 1 den n
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;i:=2;
write('nhap so thu 1:');readln(a);
while a<>0 do
s:=s+1/a;
writeln('nhap so thu',i);readln(a);
i:=i+1;
end;
writeln('tong nghich dao la:',s:2:3);
readln;
end.
dễ
Uses crt; var i,dem,j,n:Integer; Begin write('Nhap so nguyen n');ReadLn(n); if n>0 Then begin WriteLn('Cac so nguyen to tu 2 den ',n,' la:'); for j:=2 to n Do begin dem:=0; for i:= 1 to j do if j mod i=0 then dem:=dem+1; if dem=2 then write(j,' '); end; end; Readln End.
đúng ko z?
Uses Crt; Const Epsilon=1E-4; Var Pi,t:real; i,s:Integer; Begin Pi:=4; i:=1; s:=-1; t:=4/(2*i+1); While t>Epsilon Do Begin Pi:=Pi+s*t; s:=-s; i:=i+1; t:=4/(2*i+1); End; Writeln('So Pi = ',Pi:0:4); Readln; End.
xong rồi đó
tin mik 9.2 hk đó