Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
popravkinaekaterina
07.10.2020 07:03 •
Информатика
Составьте программу pascal находящую количество делителей натурального числа n
Показать ответ
Ответ:
Loler57ùö
03.10.2020 06:58
Program wer;
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lizismik15
29.08.2021 21:34
Буду ! 1. считая, что каждый символ кодируется 2 байтами, определите, чему равен информационный объём (в битах) следующего высказывания г. лейбница: есть хорошие подарки,...
EkaterinaMironovaa
27.10.2021 19:25
Написати програму, яка виводить таблицю квадратів перших десяти цілих додатніх чисел. (паскаль)...
CherryGirll
17.04.2020 06:33
Написать программу вычисления наименьшего элемента массива....
DEH111
15.07.2021 03:33
Сори за картинку, но нужна...
МаКсИк009
10.04.2023 20:47
Выпишите слова с цы,графически покажите,в какой части слова после ц пишется буква ы. демонстрация,дверцы .продавцы,дизенфекция цирк буфетчицы, репетиция, отличницы,станция....
ssamandrakova
10.04.2023 20:47
Make the past continuous 1. julie/ sleep at three o clock...
мопдркиопм
10.04.2023 20:47
Сократите дробь 6+корень6 черта дроби корень30+ корень 5 =...
nadjabolkina
10.04.2023 20:47
Вколлекции стариных монет 32 монеты столько же а француских на 16 больше чем и вместе.на сколько монет меньше чем французких...
dimam20041
10.04.2023 20:47
Запишіть у вигляді виразу : 1) сума квадрата числа 3 і числа 6; 2) різниця куба числа 5 і числа 100....
Sofff24
10.04.2023 20:47
Расставьте знаки препинания 1.белый снег лежал до края направо и налево и деревца во всей степи не было ни одного. (а. солженицин). 2. месяц выкатывал все выше в белой светлой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.