Найти сумму чисел - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/7:

@777киря777 0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 25

	Найти сумму чисел 25.02.2012, 19:54. Показов 1373. Ответов 1 Метки нет (Все метки) 1. Вычислить выражение 2. Вводятся числа до тех пор, пока не введено число 10. Найти сумму чисел. 0

Лучшие ответы (1)

Сообщение: #2526067

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

25.02.2012, 19:54

Ответы с готовыми решениями:

Если последняя цифра первого числа чётная то найти сумму чисел, иначе найти произведение последних цифр чисел
Дано два двузначных числа. Если последняя цифра первого числа четная то найти сумму исходных чисел, иначе найти произведение последних цифр...

Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел
Программа просит вас ввести пять чисел a1, b1, c1, d1, e1 и найти сумму положительных чисел из введенных чисел.

Из 5 введенных чисел найти сумму положительных, сумму отрицательных, а также их количество
С клавиатуры вводится 5 чисел. Написать программу, которая найдет сумму положительных чисел, сумму отрицательных чисел, и количество...

Севак

любитель покушать

687 / 641 / 248

Регистрация: 25.09.2011

Сообщений: 1,313

25.02.2012, 20:28

Сообщение было отмечено Памирыч как решение

Решение

Сообщение от 777киря777

2. Вводятся числа до тех пор, пока не введено число 10. Найти сумму чисел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
var
a,s: integer;
begin
while a<>10 do begin
write('Введите a: ');
read(a);
s:=s+a;
end;
write('Ответ: ',s);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

25.02.2012, 20:28

Помогаю со студенческими работами здесь

Найти сумму наиболее длинной цепочки положительных чисел и выдать сумму и длину
Создать массив из 20-ти случайных чисел из диапазона от -10 до +10 и найти сумму наиболее длинной цепочку положительных чисел и выдать...

Массив: Найти их сумму и сумму чисел, разделенных на 2, сравнить эти суммы между собой.
Нужно написать программу используя одномерные массивы. Буду благодарен. Есть действительные числа X1, ..., X15. Найти их сумму и сумму...

Найти сумму десятков двух чисел и сумму их единиц
1.)Даны два числа. Найти сумму их десятков и сумму их единиц. 2.)Дано число. Проверить, делится ли оно на 2, на 3 или на 5. ...

Вводится 10 чисел. Найти сумму всех четных чисел и произведение нечетных
вводится 10 чисел.найти сумму всех четных чисел и произведение нечетных

Найти сумму целых положительных чисел нечетных чисел меньших 100
Найти сумму целых положительных чисел нечетных чисел меньших 100!

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Наверх