Предмет: Информатика,
автор: coolboy419
помогите найти количество нечетных делителей числа в паскале
Ответы
Автор ответа:
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. Это?
Автор ответа:
0
ага, спасибо
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: aleksejprotodakonov2
Предмет: Қазақ тiлi,
автор: kompukterblog
Предмет: Обществознание,
автор: Аноним
Предмет: Математика,
автор: чарли69