Найти сумму положительных нечётных <100 в последовательности

@SAMuS · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

Дана последовательность чисел заканчивающихся на 0 найти сумму положительных нечётных <100

@Kizer · 11.02.2011, 19:27

нужно решать с массивами или необходимо обойтись без них?

@SAMuS · 11.02.2011, 19:28 **[ТС]**

Пример: 678 458 50 63 4 8 -30 -2 0
Вывести: Сумма = 62

Добавлено через 30 секунд
Хоть как, без разницы, как вам удобнее

@Kizer · 11.02.2011, 19:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
s,dig:integer;
BEGIN
clrscr;
s:=0;
repeat
writeln(' input your number ');
 readln(dig);
  if odd(dig) and (dig in [1..100]) then
   s:=s+dig;
   until dig=0;
   
   writeln('summ = ', s:2);
  END.

Судя по тому тчо оканчивается 0, без массивов нужно.

@SAMuS · 11.02.2011, 19:51 **[ТС]**

Что то не правльно считает, фигня выводится то число из ряда то на 1 больше чем надо

@Kizer · 11.02.2011, 19:57

SAMuS, у меня считает нормально.

Пример: 678 458 50 63 4 8 -30 -2 0
Вывести: Сумма = 62

с чего Вы взяли, что сумма = 62?

@SAMuS · 11.02.2011, 20:04 **[ТС]**

Сообщение от Kizer

SAMuS, у меня считает нормально.

с чего Вы взяли, что сумма = 62?

Неправильно скопировалось СПС

@VakhramoV · 11.02.2011, 20:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Zadanie;
uses crt;
var
result, dig:integer;
 
begin
clrscr;
result:=0;
repeat
write('Введите число: ');
 readln(dig);
  if ((dig mod 10) = 0) and (dig < 100) then
   result := result + dig;
   until (dig = 0);
 
   WriteLn('Сумма нечётных положительных чисел меньше 100 = ', result,'!');
end.

Мой вариант. Работает 100% - проверил.

@Kizer · 11.02.2011, 20:12

а при чем тут:

Pascal
1
if ((dig mod 10) = 0)

?

@VakhramoV · 11.02.2011, 21:26

Сообщение от Kizer

а при чем тут:

Pascal
1
if ((dig mod 10) = 0)

?

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

Добавлено через 16 минут
Тогда:

Pascal
1
if ((dig mod 2) <> 0) and (dig < 100) then

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@SAMuS 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 68

	Найти сумму положительных нечётных <100 в последовательности 11.02.2011, 19:05. Показов 1142. Ответов 9 Метки нет (Все метки) Дана последовательность чисел заканчивающихся на 0 найти сумму положительных нечётных <100 0

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	11.02.2011, 19:27
	нужно решать с массивами или необходимо обойтись без них? 0

@SAMuS 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 68
	11.02.2011, 19:28 [ТС]
	Пример: 678 458 50 63 4 8 -30 -2 0 Вывести: Сумма = 62 Добавлено через 30 секунд Хоть как, без разницы, как вам удобнее 0

@SAMuS 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 68
	11.02.2011, 19:51 [ТС]
	Что то не правльно считает, фигня выводится то число из ряда то на 1 больше чем надо 0