Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
b)
uses crt;
var gt:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(gt:0:0);
readln;
end.
program so_hoan_hao;
var
n, tong_uoc, i: integer;
begin
writeln('Nhap vao mot so nguyen duong n:');
readln(n);
tong_uoc := 0;
for i := 1 to n-1 do
begin
if n mod i = 0 then
tong_uoc := tong_uoc + i;
end;
if tong_uoc = n then
writeln('YES')
else
writeln('NO');
end.
var i,n,s,du,dem:integer;
Begin
While n<=0 do
Begin
Write('N = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then
Begin
Write(i:7);
du:=du+1;
s:=s+i;
End;
Writeln('So uoc cua ',n,' la ',du);
Writeln('Tong cac uoc cua ',n,' la ',s);
For i:=1 to s do
If s mod i = 0 then dem:=dem+1;
If dem=2 then write(s,' la so nguyen to')
Else write(s,' khong la so nguyen to');
Readln;
End.
program bai_1;
uses crt;
var i,n,j,d,dem:word;
begin
clrscr;
repeat
write('nhap n:');readln(n);
if (n<=0)or(n>=10000)then writeln('so ban nhap khong hop le, ban hay nhap lai:');
until (n>0)and(n<10000);
writeln('cac uoc so la so tu nhien cua ',n,' la:');
for i:=1 to n do
if n mod i=0 then write(i,' ');
writeln;
dem:=0;
for i:=2 to n do
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then inc(dem);
end;
if dem>0 then writeln('cac uoc so la so nguyen to cua ',n,' la:');
begin
d:=0;
for j:=2 to i div 2 do
if i mod j=0 then inc(d);
if (d=0)and(n mod i=0)then write(i,' ');
end;
if dem=0 then write(0);
readln;
end.
1:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Câu 2:
*Viết chương trình:
uses crt;
var n,p,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for p:=2 to n-1 do
if n mod p=0 then t:=t+p;
writeln('Tong cac uoc that su cua ',n,' la: ',t);
readln;
end.
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
giúp mình vs nha
cảm ơn bạn nhiều
có chắc ko vậy bạn. ko phải tổng là S à
Vây còn k, n là gì vậy
n là số tự nhiên viết vào từ bàn phím (nó là số mà mình cần tìm ước của nó)
vì đề bài không bắt buộc nên mk lấy k là tổng các ước của số tự nhiên viết vào từ bàn phím
bài này đúng đó mk chạy chương trình rồi
ủa bạn ko chạy CT biến đếm à
bạn có thể chụp lại kết quả CT đc ko ( cho ví dụ và nhâp số vào lun nhé. Có thể lấy ví dụ của mình nhập vào cx đc
Trời ơi,
bạn có phần mềm pascal không nếu có thì bấm ik như mình chỉ rồi bấm phím Ctrl+F9 rồi nhập số bất kì nếu kết quả của máy tính tính dống như bạn tính bên ngoài thì mình giải đúng ,hiểu không
mình ko có
program tong
uses crt;
var n,i,tong,dem:integer;
begin clrscr; write('nhap so tu nhien:');readln(n); dem:=0; tong:=0;
for i:=1 to n do if n mod i = 0 then begin dem:=dem+1; tong:=tong+i; writeln(i,' la uoc cua ',n); end; writeln(n,' co ',dem,' uoc so'); write('tong cua cac uoc so la:',tong);
readln;
end.
program tong
uses crt;
var n,i,tong,dem:integer;
begin
clrscr;
for i:=1 to n do
readln;
end.