Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (với n được nhập từ bàn phím) c++
|
viết chương trình pascal nhập các mảng số nguyên và xuất ra các phần tử chẵn nhỏ hơn 20 ai giúp với ạ !!! Bài toán: Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím). Thuật toán: Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra. Program SoHoanChinh; uses crt; Var S, n, i,j: longint; Begin clrscr; Write('Nhap so n ='); readln(n); For i:=1 to n do Begin S:=0; For j:=1 to i do if i mod j = 0 then S:=S+j; if S = 2*i then write(i:6,','); end; readln end. program hello; uses crt; var s,n,j,i: longint; begin clrscr; write('nhap n :'); readln(n); for i:=1 to n-1 do begin s:=0; for j:=1 to i-1 do if i mod j = 0 then s:=s+j; end; readln end.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Hay nhất
Program Tim_uoc_2; uses crt; Var S, n, i,j: longint; Begin clrscr; Write(‘Nhap so n =’); readln(n); For i:=1 to n do Begin S:=0; For j:=1 to i do if i mod j = 0 then S:=S+j; if S = 2*i then write(i:6,’,’); end; readln end. |
