Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 13

Asum 2

20.02.2011, 20:46. Показов 1765. Ответов 23
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше 20000000. Всего последовательность состоит не более чем из 40 чисел. Последовательность завершается признаком конца ввода. На стандартный поток вывода напечатайте сумму этих чисел.


входные данные
1 2 3 4
выходные
10
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.02.2011, 20:46
Ответы с готовыми решениями:

Asum 2
На стандартном потоке ввода задаётся последовательность целых чисел. Каждое число последовательности не меньше -20000000 и не больше...


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

Или воспользуйтесь поиском по форуму:
23
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
20.02.2011, 22:18
Студворк — интернет-сервис помощи студентам
число<>последовательности. Либо ты не догоняешь что от тебя требуется либо я.Первое вероятнее всего.
1
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 13
20.02.2011, 22:19  [ТС]
наверное я)) но в задаче только это...
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
20.02.2011, 22:25
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses
 CRT;
var
 i:integer;
 a:longint;
 sum:real;
begin
sum:=0;
i:=0;
repeat
 inc(i);
 write('Ââåäèòå ',i,'-å ÷èñëî: ');
 readln(a);
 if (a>=-20000000) or (a<=20000000) then
  sum:=sum+a;
until ((a<-20000000) or (a>20000000)) or (i=40);
writeln;
write('Ñóììà ýëåìåíòîâ:=',sum-a);
end.
окончание ввода число меньшее -20000000 или число большее 20000000 или если таковые не вводятся количество=40.Или сделай 0 окончание ввода чисел.
0
0 / 0 / 0
Регистрация: 20.02.2011
Сообщений: 13
20.02.2011, 22:40  [ТС]
SuPeR XaKer, ок, Спасибо БОЛЬШОЕ!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Ответ Создать тему
Новые блоги и статьи
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега
Maks 17.08.2026
Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru