Объявляем переменные 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.Конец программы.
Объявляем переменные 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.Конец программы.
Проектирование и внедрение АРМ основывается на ряде общих и частных принципов проектирования систем обработки данных. Главным считается принцип максимальной ориентации на конечного пользователя. Это достигается созданием специальных средств адаптации АРМ к уровню подготовки пользователя и возможностью его обучения и самообучения непосредственно на данном АРМ.
Другим принципом созданию эффективных АРМ, является принцип проблемной ориентации. Под проблемной ориентацией обычно понимается специализация АРМ на решении определенного круга задач, объединенных общей технологией обработки данных, т.е. ориентация на автоматизацию некоторой группы функций, постоянно выполняемых работниками сферы организационного управления.
Немаловажное значение придается реализации принципа соответствия информационных потребностей пользователей используемым техническим средствам. Только после тщательного установления информационных потребностей пользователя, обеспечивающих выполнение возложенных на него функций, можно приступать к определению состава и функций АРМ.
На практике при разработке АРМ пользователи зачастую предпочитают перепоручить определение своей информационной потребности разработчикам, ссылаясь на недоступную компетентность в области вычислительной техники. В результате цели, определенные разработчиками, не всегда совпадают с тем, что пользователи ожидают от автоматизации их рабочих мест. Поэтому в процессе создания АРМ должен быть реализован принцип творческого постоянного контакта разработчиков АРМ и их потенциальных пользователей.Совместное участие пользователя и разработчика в создании АРМ лучше осознать проблемную ситуацию, стимулирует интеллектуальную деятельность будущего пользователя АРМ и в конечном итоге повышению качества АРМ.
Примерами АРМ являются АРМ бухгалтера, складского работника, операциониста банка, менеджера. Примерами функциональных подсистем ЭИС являются подсистемы бухгалтерского учета, финансового планирования и анализа, маркетинга, кадров ит.Д. Примерами функциональных информационных систем являются банковские, страховые, налоговые и другие системы. Примерами обеспечивающих предметных технологий являются Project Expert, Marketing Expert, и приложения фирм 1С, Галактика, ПАРУС, BAAN, BaySIS и другие.