М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
artemkrav99ozgp1u
artemkrav99ozgp1u
17.11.2022 11:04 •  Информатика

Можете дать анализ решения задачи (Словесное описание действий, необходимых для решения этой задачи) по готовому коду. PASCAL Задача звучит так: "Задано число P. Определить количество его четных и нечетных делителей"

Вот код:

var P,i,kc,kn:integer;

begin

write('P='); //вводим целое число

readln(P);

kc:=0; //четные делители

kn:=0; //нечетные делители

for i:=2 to P do //от 2 до P

if P mod i=0 then //если n делится на i, это делитель

if odd(i)then inc(kn) else inc(kc); //нечетный или четный

writeln('Количество четных делителей=',kc,' нечетных=',kn)

end.

👇
Ответ:
kseniaksu1
kseniaksu1
17.11.2022
var P,i,kc,kn:integer;

Объявляем переменные P,i,kc,kn как целочисленный тип.

begin

Начало программы.

write('P='); //вводим целое число

Выводим на экран "P=".

readln(P);

Считываем переменную P с клавиатуры и переходим на новую строчку.

kc:=0; //четные делители

Присваиваем переменной kc, в которой будет храниться количество четных делителей, значение 0.

kn:=0; //нечетные делители

Присваиваем переменной kn, в которой будет храниться количество нечетных делителей, значение 0.

for i:=2 to P do //от 2 до P

Объявляем цикл с переменной i от 2 до P (до числа, которое мы ввели с клавиатуры).

if P mod i=0 then //если n делится на i, это делитель if odd(i)then inc(kn) else inc(kc); //нечетный или четный

Если остаток от деления P на i равен нулю, то есть P делится на i без остатка, то смотрим: если i нечетная, то увеличиваем kn на 1, иначе (то есть если i четная), увеличиваем kc на 1.

writeln('Количество четных делителей=',kc,' нечетных=',kn)

Выводим на экран:  "Количество четных делителей=",    значение переменной kc,     " нечетных=",      значение переменной kn".

end.

Конец программы.

4,4(16 оценок)
Открыть все ответы
Ответ:
stqz
stqz
17.11.2022

Определение ДНС провайдера из своей сети Проще всего это сделать, когда имеется сеть и выход в интернет, либо то же самое можно сделать от абонента, также обслуживающегося в вашей провайдерской сети. Для этих целей следуйте инструкции: запустите командную строку, нажав в меню «Пуск», затем «Выполнить» и набрав в строке CMD (строчными); в открывшемся окне командной строки наберите ipconfig/all; в отчете вы получите список DNS-адресов; полученные адреса можно физически прописать в настройках сети, в этом случае выход в сеть будет стабильно работать даже при сбоях автоматического обнаружения ДНС-серверов.

4,6(64 оценок)
Ответ:
dadamuhamedovag
dadamuhamedovag
17.11.2022

ответ:1.

Выдача чужого произведения за своё или незаконное опубликование чужого произведения под своим именем, литературное воровство

2.

А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. 

3.

1) литературные произведения;

2) драматические и музыкально-драматические произведения;

3) сценарные произведения;

4) произведения хореографии и пантомимы;

5) музыкальные произведения с текстом или без текста;

6) аудиовизуальные произведения;

7) произведения живописи, скульптуры, графики и другие произведения изобразительного искусства;

8) произведения прикладного искусства;

9) произведения архитектуры, градостроительства, дизайна и садово-паркового искусства;

10) фотографические произведения и произведения, полученные , аналогичными фотографии;

11) карты, планы, эскизы, иллюстрации и трехмерные произведения, относящиеся к географии, топографии и к другим наукам;

12) программы для ЭВМ;

13) иные произведения.

Объяснение:

4,7(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ