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.
Đỗ Thành
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]. a. Hướng dẫ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 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.
Create an account
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.