Главная /
Программирование на Free Pascal и Lazarus /
Напишите программу, используя процедуры и функции. Поступает последовательность целых положительных чисел, 0 — конец последовательности. Найти среднее арифметическое простых чисел в этой последовательности. Определение простого числа оформить в виде функц
Напишите программу, используя процедуры и функции. Поступает последовательность целых положительных чисел, 0 — конец последовательности. Найти среднее арифметическое простых чисел в этой последовательности. Определение простого числа оформить в виде функций.
вопросПравильный ответ:
Свой ответ
Сложность вопроса
66
Сложность курса: Программирование на Free Pascal и Lazarus
27
Оценить вопрос
Комментарии:
Аноним
Экзамен сдал на отлично. Спасибо за халяуву
09 авг 2016
Аноним
ответ подошёл
26 мар 2016
Другие ответы на вопросы из темы образование интуит.
-
#
Постройть график функции
на интервале
. Функция задана следующей зависимостью: f(x) = \begin{cases}
x^{3}+3(x+2)^{2}, & \text{если } x \le 3 \\
\sqrt[{5}]{(\sin (10,5+x))^{2}}, & \text{если } x > 3
\end{cases}
-
#
Изобразите блок-схему решения задачи и напишите программу. Решите следующую задачу: Найти точки пересечения линии
с осью абсцисс.
- # Изобразите блок-схему решения задачи и напишите программу. Решите следующую задачу: Вводится последовательность ненулевых чисел, 0 — конец последовательности. Определить, сколько раз последовательность поменяет знак.
-
#
Составьте две программы. Первая должна сформировать типизированный файл, вторая — считать данные из этого файла, выполнить соответствующие вычисления и записать их результаты в текстовый файл. Создать типизированный файл, куда записать
целых чисел. Из исходного файла сформировать массив, в котором вначале расположить чётные, а затем нечётные числа. Определить номера наибольшего нечётного и наименьшего чётного компонентов.
- # Создать структуру с данными по таблице 8.8. Добавить и вычислить в структуре поле "Активность" по следующему принципу: если количество статей более 5, то в поле записать пробел, в противном случае — фразу "Работать лучше". Упорядочить записи по фамилии. Таблица должна содержать не менее десяти записей. Сведения о сотрудникеФамилияИнициалыУчёная степеньГод рожденияКоличество статейСергеевС. И.Доцент19717...
на интервале
. Функция задана следующей зависимостью: f(x) = \begin{cases}
x^{3}+3(x+2)^{2}, & \text{если } x \le 3 \\
\sqrt[{5}]{(\sin (10,5+x))^{2}}, & \text{если } x > 3
\end{cases}
с осью абсцисс.
целых чисел. Из исходного файла сформировать массив, в котором вначале расположить чётные, а затем нечётные числа. Определить номера наибольшего нечётного и наименьшего чётного компонентов.