1. Информатика
  2. Дано натуральное число. определить

Дано натуральное число. определить количество его нечетных делителей. написать программу паскаль)

xlblacklxffff2 xlblacklxffff2    1   17.06.2019 06:30    1

Ответы
aliya071016 aliya071016  13.07.2020 22:15
Var n,i,k:Integer;
Begin
 Read(n);
 for i:=1 to n do
   if (n mod i = 0) and (i mod 2 <>0) then k:=k+1;
 Writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vanechkaerokho vanechkaerokho  13.05.2020 17:22
Выберите из списка информационные процессы (действия с информацией): разгадывание кроссворда выполнение контрольной работы письмо приятелю учебник математики разговор по телефону...
esketit123 esketit123  13.05.2020 17:22
Для чего служит процесор?​...
жасик0071 жасик0071  13.05.2020 17:23
Укажите какой вид информации лишний: 1. Текстовая 2. Графическая 3. Буквенная 4. Числовая...
karinroy karinroy  13.05.2020 17:23
Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 23×23 пикселя, если известно, что в изображении используется палитра из...
ErnurNick ErnurNick  13.05.2020 17:23
Нужно решить задание с роботом...
Vampire1234 Vampire1234  06.11.2020 04:23
по первому каналу связи за 30с можно передать файл с объемом 50 кбайт скорость второго канала связи вдвое больше. каков объем файла, который можно передать по второму каналу связи...
Челoвечeк Челoвечeк  14.01.2022 01:23
Задача е 1. Составьте алгоритм: Бассейн имеошей форму Пря 1,0 угольника со сторонами А метров и в метров и высотой Н метров нато наполнить водой, но не До края, а оставить от поверхности...
Mari2909 Mari2909  09.12.2020 14:23
Для какого из приведённых чисел истинно высказывание: НE (число 20) и (число чётное)? 3621158​...
Fox125123 Fox125123  09.12.2020 14:22
Nazar DTS ara XSRynporpenMBESIN KITAJS XIRS ap apicris ars Tags, Sukes​...
didisa0282 didisa0282  09.12.2020 14:22
Напишите программу для вычисления значения выражения на питоне...

Популярные вопросы