Дано число n.Определите количество делителей этого числа.(без остатка).
Нужно составить программу.Помогите пожалуйста,буду очень благодарна
Ответы
Ответ дал:
0
var
n, i, x: integer;
begin
writeln('введите n: ');
readln(n);
write('делители числа ', n, ': ');
for i := 1 to n do
begin
if n mod i = 0 then write(i, ' ');
if n mod i = 0 then x := x + 1;
end;
writeln;
write('количество делителей числа ', n, ': ', x);
end.
n, i, x: integer;
begin
writeln('введите n: ');
readln(n);
write('делители числа ', n, ': ');
for i := 1 to n do
begin
if n mod i = 0 then write(i, ' ');
if n mod i = 0 then x := x + 1;
end;
writeln;
write('количество делителей числа ', n, ': ', x);
end.
Вас заинтересует
1 год назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад