Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 01.04.2018
Сообщений: 7
1

Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел

01.04.2018, 19:51. Просмотров 857. Ответов 4
Метки нет (Все метки)

Дана последовательность из n вещественных чисел. первое число в последовательности четное. Найти среднее арифметическое всех, идущих подряд в начале последовательности четных чисел. Условный оператор не использовать.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2018, 19:51
Ответы с готовыми решениями:

Найти сумму всех идущих подряд в начале последовательности нечетных чисел
Дана последовательность из n вещественных чисел. Первое число в последовательности нечетное....

Найти сумму всех идущих подряд в начале последовательности нечетных чисел
Дана последовательность из п вещественных чисел. Первое число в последовательности не-четное....

Найти сумму всех идущих подряд в начале последовательности четных чисел
Задачку нужно решить через while Я набросал код, но у меня складываются все четные числа, а нужно,...

Найти сумму всех идущих подряд в начале последовательности нечетных чисел
Дана последовательность из n вещественных чисел. Первое число в последовательности нечетное. Найти...

4
Модератор
61669 / 46166 / 31854
Регистрация: 18.05.2008
Сообщений: 111,331
01.04.2018, 20:22 2
Цитата Сообщение от Nick Koch Посмотреть сообщение
n вещественных чисел. первое число в последовательности четное
А что, вещественные числа бывают четными и нечетными?
Напишите и проверьте
Pascal
1
2
3
4
5
var a:real;
begin
a:=2;
if a mod 2=0 then write('Число четное') else write('Число нечетное');
end.
0
0 / 0 / 0
Регистрация: 01.04.2018
Сообщений: 7
01.04.2018, 21:17  [ТС] 3
Puporev, Нельзя преобразовать тип real к integer
0
1734 / 1328 / 1406
Регистрация: 28.10.2016
Сообщений: 4,265
01.04.2018, 21:27 4
Nick Koch, вот и ответ
0
Модератор
61669 / 46166 / 31854
Регистрация: 18.05.2008
Сообщений: 111,331
02.04.2018, 08:45 5
Можно конечно изогнуться
Pascal
1
2
3
if frac(a)=0 then
if odd(trunc(a)) then write('нечетное')
else write('четное')
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2018, 08:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти сумму всех идущих подряд в начале последовательности нечетных чисел (нужны комментарии)
Условие задачи звучит так: Дана последовательность из п вещественных чисел Первое число в...

Дана последовательность из N вещественных чисел. Первое число в последовательности нечетное. Найти сумму всех идущих подряд в начале последовательност
Дана последовательность из N вещественных чисел. Первое число в последовательности нечетное. Найти...

Найти сумму всех идущих подряд нечётных, находящихся в начале заданной последовательности
Как реализовать данный алгоритм?

Найти сумму всех идущих подряд в начале вектора нечетных чисел
Дан вектор из вещественных чисел. Первое число в векторе нечетное. Найти сумму всех идущих подряд в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.