tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу, находящую
Составьте программу, находящую количество делителей натурального числа n. указание. число х является делителем числа n, если выполняется условие n mod x=0. это паскаль
mc9584
3 02.06.2019 00:50
0
Ответы
DANIL79NR
02.07.2020 22:51
Uses crt;
var
a,b,k:integer;
Begin
read(a);
for b:= 1 to A do
if (a mod b=0) then k:=k+1;
writeln(k);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
наташа978
10.09.2021 09:49
, 5 минут до начала урока....
ZKRMT
10.09.2021 09:47
На які програмні продукти існують авторські права...
Zsd19
30.09.2019 07:20
Что обеспечивает гиперссылки в плане навигации...
мим221
30.09.2019 07:20
Какое минимальное основание должна иметь система счисления,если в ней можно записать числа: 101,110,111...
гульназ85
30.05.2023 23:30
Нумерація в масивах починається з 0 тоді, якщо sp1 = [3, 5, 0, 5, 3, 1] то який буде len(sp1)...
drblk3282
30.05.2023 23:29
Обчисліть значення логічного виразу: x y при x=2, y=-4 Відповідь запишіть маленькими латинськими літерами....
Coolgirl1098
30.05.2023 23:29
На скільки кроків переміститься виконавиць в результаті виконання програми ?...
Erika211
30.05.2023 23:29
Вказати правильний запис клітини: варіанти відповідей F2 2V 2M2 Д10...
линаким1
17.08.2019 14:20
1какие четыре типа обработки информации можно выделить? примеры 2 какова схема процесса передачи информации?...
йцццу
01.04.2019 20:30
Составить алгоритм квадратного уравнения...
Популярные вопросы
Найти периметр трапеции С решением! ...
3
пішохід йде зі швидкісстю 1,5 м/с. Його обганяє велосипедист, якій їде зі швидкістю...
2
Величини двох внутрішніх односторонніх кутів, утворених при перетині паралельних...
3
В даных предложениях нади слово с значениям с виду нерасивый выпиши это слово...
3
Мн число eine Stadt: a) die Städte b) die Sdadte c) die Sdadten d) die Sdadten e)...
2
Найти ошибки и написать правильно. Мы усваиваем с молоком матери не только первые...
1
Составить рассказ используя данные) Сэм9 лет,1 класс,британец Линда 10 лет,1 класс,британка...
2
Как вырабатывается самостоятельность???...
1
Б) Львів в) Рудки Г) Перезіль 3. Коли було засноване політичне товариство «Головна...
2
Самостоятельная работа 1. Вдруг Суриков стремительно скат..вает?ся (в)низ по обл..денелой...
2
var
a,b,k:integer;
Begin
read(a);
for b:= 1 to A do
if (a mod b=0) then k:=k+1;
writeln(k);
End.