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

Дано натуральное число n. определить к - количество делителей этого числа, не превышая его ( n = 12, его делители 1, 2, 3, 4, 6, к = 5 )

kantuz kantuz    2   31.05.2019 13:50    0

Ответы
Ddddd46763 Ddddd46763  01.07.2020 23:30
Uses crt;
var n,i,k:integer;
begin
read(n);
for i:=1 to n-1 do
if i mod k=0 then
k:=k+1;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastya05112 nastya05112  01.03.2021 14:21
Какими характеристиками обладает индентификатор ? ( тема Программирование на языке Python)...
nicoguy2 nicoguy2  01.03.2021 14:19
Определите результат программы list[1,2,3,4,5] print(list[-1]...
kristinavasina1 kristinavasina1  17.12.2020 22:01
1) Заполните массив из 10 элементов последовательными натуральными числами, начиная с X (значение X введите с клавиатуры). 2) Напишите программу, которая заполняет...
еренйегер2398 еренйегер2398  17.12.2020 22:01
Написати програмний код за до у якому зміннa буде повторюватися 2000 раз...
DarinaKimovsk DarinaKimovsk  17.12.2020 22:00
Сколько бит потребуется для кодировки каждого цвета в предложенной ниже палитре? в палитре 40 цветов​...
Настя12611 Настя12611  17.12.2020 21:59
Заповніть масив з N елементів випадковими числами у діапазоні від 50 до 170 та підрахуйте кількість чисел, які є кратні 7. PYTHON...
Soonthanyou Soonthanyou  17.12.2020 21:59
Переведите единицы измерения информации 2,5 Кбайт =__ байт, 6 Гбайт___ Мбайт6 Тбайт=__ Кбайт...
amishka01 amishka01  17.12.2020 21:57
20б не смотрите на ответы в интернете, там совсем другая задача, просто она похожая! Попробуйте решить как нибудь по своему... Сколько времени потребуется для ввода...
миёк2 миёк2  11.10.2019 16:27
Сколько существует целых чисел x, для которых выполняется неравенство: fgh(20) x a1a1a(11)...
Foxoff Foxoff  11.10.2019 16:30
Напишите программу на языке ассемблер, которая умножает число в регистре r0 на 10, не применяя команду умножения. используйте арифметические операции и сдвиги.​...

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