Вычислить сумму натуральных чисел от 1 до N .
Составить программу нахождения кол-ва делителей числа N ( значение N вводится с клавиатуры )
Составить программу нахождения кол-ва делителей числа N ( значение N вводится с клавиатуры )
More Questions From This User See All
Answers & Comments
1)
var i,n,result:integer;
begin
read(n);
result:=0;
for i:=1 to n do
begin
result:=result+i;
end;
write(result);
end.
2)
var i,n,increase,result:integer;
massive = array[1..1000] of integer;// ищем делители в диапазоне 1-1000
begin
read(n);
for i:=1 to 1000 do
begin
if((n mod massive[i])=0) then
begin
increase:=increase + 1;
end;
end;
result:=increase;
write(result);
end.