Информатика | 5 - 9 классы
Знайти суму килькисть та середне арифметичне всих натуральних чисел вид 30 до 100 що кратни 3 та закинчуються на 2, 4 або 8 паскаль.
Знайти суму перших n членів арифметичної прогресії {An}, якщо відомі А1 і D?
Знайти суму перших n членів арифметичної прогресії {An}, якщо відомі А1 і D.
Паскаль.
З трьох введених чисел знайти те що знаходиться посередині (паскаль)?
З трьох введених чисел знайти те що знаходиться посередині (паскаль).
Одномерные массивы?
Одномерные массивы.
Дан массив натуральных чисел, состоящий из n элементов.
Найти сумму элементов массива, кратных данному числу К.
(паскаль).
Знайти суму всіх натуральних парних чисел від 0 до N?
Знайти суму всіх натуральних парних чисел від 0 до N.
Паскаль.
Дано тризначне число?
Дано тризначне число.
Чи кратна сума його цифр семи?
Програма на мові Паскаль.
Знайти суму всіх парних чисел від 1 до n?
Знайти суму всіх парних чисел від 1 до n.
Паскаль.
Знайти добуток всих натуральних двохзначних чисел у яких перша цифра вдвичи бильше другойи?
Знайти добуток всих натуральних двохзначних чисел у яких перша цифра вдвичи бильше другойи.
Знайти суму всіх натуральних чисел від 1 до n?
Знайти суму всіх натуральних чисел від 1 до n.
Определить количество трехзначных чисел , кратных 3?
Определить количество трехзначных чисел , кратных 3.
(ПАСКАЛЬ).
Блок - схема, цикл Знайти суму перших десяти парних чисел?
Блок - схема, цикл Знайти суму перших десяти парних чисел.
Вы зашли на страницу вопроса Знайти суму килькисть та середне арифметичне всих натуральних чисел вид 30 до 100 що кратни 3 та закинчуються на 2, 4 або 8 паскаль?, который относится к категории Информатика. По уровню сложности вопрос соответствует учебной программе для учащихся 5 - 9 классов. В этой же категории вы найдете ответ и на другие, похожие вопросы по теме, найти который можно с помощью автоматической системы «умный поиск». Интересную информацию можно найти в комментариях-ответах пользователей, с которыми есть обратная связь для обсуждения темы. Если предложенные варианты ответов не удовлетворяют, создайте свой вариант запроса в верхней строке.
Var n, s, i : integer ;
begin for i : = 30 to 100 do if (i mod 3 = 0) and ((i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)) then begin n : = n + 1 ; s : = s + i ; end ; writeln(s / n) ;
end.