Дано целое число ,не меньшее 2.Вывести сколько делителей у этого числа.
В ПАСКАЛЕ РЕШЕНИЕ ДЛЯ 8КЛАССА
Ответы
Ответ дал:
0
var n,i,k:integer;
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
begin
write ('Введите целое число (n>=2): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад