Question

Ai bít câu trả lời thì cho mình hỏi vs: Viết CT nhập vào 1 số tự nhiên , cho bt số đó có bao nhiêu ước, tính tổng của chúng và các ước của số đó. Ví dụ: ước của 6 là 1 2 3 6, có 4 ước và tổng là 12

Answer 1

Answer 2

Answer 3

giúp mình vs nha

Answer 4

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.

Answer 5

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.