Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
3 / 3 / 0
Регистрация: 03.02.2012
Сообщений: 45
1

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

15.02.2012, 21:52. Просмотров 2194. Ответов 2
Метки нет (Все метки)

Дана последовательность из п вещественных чисел.
Первое число в последовательности не-четное. Найти сумму всех идущих подряд в начале последова¬тельности нечетных чисел.
УСЛОВНЫЙ оператор не ис¬пользовать.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2012, 21:52
Ответы с готовыми решениями:

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

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

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

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

2
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
15.02.2012, 22:40 2
Цитата Сообщение от OmgMorty Посмотреть сообщение
Дана последовательность из п вещественных чисел.
Вещественное число - это не целое, а по-моему только целое число может быть четным
0
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
16.02.2012, 23:48 3
Лучший ответ Сообщение было отмечено OmgMorty как решение

Решение

Вот. Но только числа целые
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses crt;
Var m:array[1..100]of integer;
    i,n,s,f:integer;
Begin
Repeat
m[1]:=random(90);
Until m[1] mod 2<>0;
Write('Ââåäèòå N=');readln(n);
For i:=1 to n do
begin
If i>1 then m[i]:=random(80);
write(m[i],' ');
end;i:=1;
While (m[i] mod 2<>0)and(i<>n) do
begin
 s:=s+m[i];
 Inc(i);
 end;
 Writeln;
Writeln('Ñóììà ïåðâûõ íå÷åòíûõ ÷èñåë ==',s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2012, 23:48

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

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

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

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

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

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

Определить, какое количество подряд идущих отрицательных чисел записано в начале последовательности
Дана последовательность из n вещественных чисел, начинающаяся с отрицательного числа. Определить,...


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

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

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