Предмет: Информатика,
автор: Аноним
Паскаль. Помогите решить с помощью циклов. 9кл.
Найти количество нечетных делителей натурального числа, больших К ( К вводится с клавиатуры) Помогите написать хотя бы математическую модель.
Ответы
Автор ответа:
0
var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
Похожие вопросы
Предмет: География,
автор: maksimm4455
Предмет: История,
автор: aroslavkostisin494
Предмет: Немецкий язык,
автор: kseniavladimirova34
Предмет: Физика,
автор: pofatherkichi
Предмет: Алгебра,
автор: vknyrevich