Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Каракат11111
16.02.2020 12:20 •
Информатика
Найти количество делителей натурального числа. сколько из них четных? решить в turbo pascal, без массивов. ,
Показать ответ
Ответ:
qwead23p08iwf
03.10.2020 02:55
Var N,delit,count,ccount:integer;
begin
read(N);
count:=0; ccount:=0;
for delit:=1 to N do
if N mod delit = 0 then
begin
count:=count+1;
if (delit mod 2 = 0) then ccount:=ccount+1;
end;
writeln('Delit: ',count);
writeln('Chetn Delit: ',ccount);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
efjvns
30.09.2021 04:15
1)вывести одномерный массив размерностью n. вычислить сумму элементов стоящих на чётных местах. 2) ввести одномерный массив с клавиатуры. определить количество элементов...
ramil161
30.09.2021 04:15
Врезультате вызова какой из процедур вывода будет напечатано на экране значение переменной х? * * writeln (x) * writeln(x) * write ( x ) * writeln ( x )...
alenamorozova4
30.09.2021 04:15
2-3 примера правил или предписаний которым вы следуете в повседневной жизни....
Оксана0990
06.03.2022 00:11
Дано натуральное число n. проверить является ли это число палиндромом....
люся4085
13.11.2020 01:31
На строки. на строки. из слова параллелограмм получить слово гром.надо тетем удаления замены всавки сделать, но как именн?...
mishkaievlev
13.11.2020 01:31
Даны три натуральных числа.выяснить в каком из них сумма цифр больше.(определить функцию для расчёта количества цифр натурального )...
настя7187
26.09.2020 08:12
Каких сведений не хватает для ответа на вопрос? запиши все исходные данные, необходимые для решения . винни пух и пятачок пошли в гости к кролику.сколько меда и сгущенки...
Leraleralozia
26.09.2020 08:12
Составте программу, которая рисует рекламны плакаты...
inna75
03.05.2021 14:20
1)дано целое многозначное число n.найти сумму цифр этого числа 2)найти произведение первых n натуральных чисел. 2)найти произведение первых n натуральных чисел....
larakav
03.05.2021 14:20
Решить по информатике за 6 класс-условие в пояснение туристы-отец, мать и два брата-близнеца должны переправиться через реку.в их распоряжении есть маленькая лодка,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(N);
count:=0; ccount:=0;
for delit:=1 to N do
if N mod delit = 0 then
begin
count:=count+1;
if (delit mod 2 = 0) then ccount:=ccount+1;
end;
writeln('Delit: ',count);
writeln('Chetn Delit: ',ccount);
end.