Информатика | студенческий
Найти сумму четных делителей введенного целого числа(Pascal abc.
Net).
Дан массив целых чисел?
Дан массив целых чисел.
Найти сумму элементов с четными индексами.
Написать программу, которая проверяет, является ли четным введенное пользователем целое трехзначное число число?
Написать программу, которая проверяет, является ли четным введенное пользователем целое трехзначное число число.
Написать программу решения задачи : Вводить целые числа с клавиатуры, пока не будет введен ноль?
Написать программу решения задачи : Вводить целые числа с клавиатуры, пока не будет введен ноль.
А) Найти сумму введенных чисел.
B) Найти количество четных отрицательных чисел среди введенных.
C) Найти максимальное число среди введенных.
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2?
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2.
Pascal abc.
Net.
Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc?
Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc.
Net).
Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной?
Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного трехзначного числа является четной.
Найти сумму квадратов пяти целых четных чисел, начиная от 10?
Найти сумму квадратов пяти целых четных чисел, начиная от 10.
Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом?
Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом.
Пример ввода : 567.
Пример вывода : сумма цифр числа 567 - четное число
хелп, срочно!
;
Составьте программу, определяющую, является ли последняя цифра введенного целого числа (любого) четной ли нечётной?
Составьте программу, определяющую, является ли последняя цифра введенного целого числа (любого) четной ли нечётной.
Найти большее из 4 - ёх чисел pascal ABC NET?
Найти большее из 4 - ёх чисел pascal ABC NET.
Перед вами страница с вопросом Найти сумму четных делителей введенного целого числа(Pascal abc?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся студенческий. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Program n1 ;
var a, sum, i : integer ;
begin
sum : = 0 ;
readln(a) ;
for i : = 1 to a div 2 do if (a mod i) = 0 then
if i mod 2 = 0 then sum : = sum + i ;
if a mod 2 = 0 then sum : = sum + a ;
writeln(sum) ;
end.