Pair of Vintage Old School Fru
nội dung trang top 10 bai tap pascal hay
v
12:2506/02/13
Người sáng lậpngo quang vinh trong

hay su dung tring duyet UC Browser de tai trang dien dan tot nhat nhe !


Trình duyệt UC Browser

[Tải ngay][Hướng dẫn]
Thông báo!
Next 2 1-ban quan tri dien dan xin thong bao : cac ban co nhung bai tap pascal hay nhung sang kien hay giai cac bai toan bang ngon ngu pascal thi hay chia se tren dien dan nhe ! hoac lien he voi admin qua so 01649255669
-Hiện tại wap đang bảo trì có nhiều phần sẽ không vào được xin mọi ngừơi thông cảm!

•TOP 10 pascal hay

1.Viết tất cả các ước nguyên tố của 1 số tự nhiên n nhập từ bàn phím:

code:

readln(n);
writeln('cac uoc nguyen to');
for i:=2 to n do{cái này phòng trường hợp n nguyên tố nên cho chạy đến n lun }
If n mod i=0 then
begin
d:=0;
for j:=2 to i div 2 do
If i mod j=0 then d:=d+1;
If d=0 then write(i:5);
end;
readln;
end.


2 .Xuất các số chẵn trong khoảng từ 2 số m và n nhập từ bàn phím:

code:

readln(m,n);
If m>n then
begin
tg:=m;
m:=n;
n:=tg;
end;
for i:=m to n do
If i mod 2=0 then write(i:50);
readln;


3 .Nhập Số n kiểm tra có phải số chính phương hay ko:

code:

readln(n);
thu:=trunc(sqrt(n));
If sqr(thu)=n then writeln(n,' la so chinh phuong')
else writeln('khong la so chinh phuong');
readln;
end.


4 .Tính tổng các chữ số của số n nhập từ bàn phím;

code:

readln(n);
while n<>0 do
begin
S:=S+n mod 10;
n:=n div 10;
end;
writeln('tong: ',S);
readln;
end.


5.Tính tổng S=1+(2!/2)+(3!/3^2)+(4!/4^3)+...+(n!/n^(n-1)) :

code:

var n,i,j:integer;
s,t:real;
Begin
Write('Nhap n=');
readln(n);
s:=0;
t:=0;
j:=1;
For i:=1 to n do
Begin
j:=j*i;
t:=j/(exp((i-1)*ln(i)));
s:=s+t;
End;
Write('S=',s:2:3);
readln;
end.


dang cap nhap them.....


<<= quay lai
Khác
Thống kê
0nline : 10
Hôm nay : 50
Tổng cộng : 121003
GAME HOT
.VINH TRONG.
HOMEBÁO LỖI
© Copyright Vinh Trong97
Powered by dd pascal
sdt admin:01649255669
Gọi Admin
Gửi SMS
Lưu số
email:hotrodiendan@gmail.com

Build your mobile website

Easy mobile site building