Информатика | 10 - 11 классы
Вычислить сумму всех четных натуральных чисел меньше данного n .
Задачвычислить сумму всех четных натуральных чисел меньше данного n .
Задача по информатике.
Вычислить сумму всех четных натуральных чисел меньше данного n ?
Вычислить сумму всех четных натуральных чисел меньше данного n .
Задаччерез паскаль.
Задача по информатике.
Помогите пожалуйста?
Помогите пожалуйста!
Написать программу , которая вычислит отдельные суммы четных и нечетных чисел натурального ряда и их произведения.
Программа на Паскале?
Программа на Паскале.
Нахождение произведения четных чисел и суммы нечетных чисел меньше 15.
ПОМОГИТЕ, ПОЖАЛУЙСТА?
ПОМОГИТЕ, ПОЖАЛУЙСТА!
Дано натуральное число.
Верно ли, что сумма его чисел больше k, а само число четное?
Решить задачу на Паскале : Вычислите сумму данных 100 натуральных чисел?
Решить задачу на Паскале : Вычислите сумму данных 100 натуральных чисел.
Вводятся 100 чисел, сумму которых необходимо посчитать.
НАЙТИ СУММУ ЧЕТНЫХ ДВУЗНАЧНЫХ НАТУРАЛЬНЫХ ЧИСЕЛ?
НАЙТИ СУММУ ЧЕТНЫХ ДВУЗНАЧНЫХ НАТУРАЛЬНЫХ ЧИСЕЛ!
Найти сумму всех двухзначных четных натуральных чисел?
Найти сумму всех двухзначных четных натуральных чисел.
Найти сумму N первых четных натуральных чисел в Qbasic?
Найти сумму N первых четных натуральных чисел в Qbasic.
В кумире : найти сумму четных чисел натурального числа?
В кумире : найти сумму четных чисел натурального числа.
( надсо ставить программу).
3. Дано натуральное число?
3. Дано натуральное число.
Найти сумму его четных делителей и количество этих делителей.
Перед вами страница с вопросом Вычислить сумму всех четных натуральных чисел меньше данного n ?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Var a, n, s : integer ;
begin
write('введите число n ') ;
readln(n) ;
s : = 0 ;
for a : = 1 to n do
if (a< ; n) and (a mod 2 = 0) then s : = s + a ;
write(s) ;
end.