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

Kqxs | bóng đá|Thời Tiết| lịch Tivi | ĐTDĐ |google | sms free | đọc truyện | Mẹo vặt | Hình ảnh | Nhạc Midi | đọc báo| Tin 24h | Soha | Kênh 14| Truyện tình cảm