Написать программу подсчета суммы вводимых элементов до первого отрицательно числа в pascal
haha1
1
09.07.2019 06:10
0
Другие вопросы по теме Информатика
makarova06
21.05.2019 02:10
qertthdfjht
23.06.2019 12:30
nayahoff123
23.06.2019 12:30
feho
23.06.2019 12:30
віка189
23.06.2019 12:30
mila2086
05.07.2019 14:20
Olga831106
24.08.2019 16:50
Sashaooo
10.08.2019 05:50
Erumbumbum
03.02.2021 19:37
maryam67
03.02.2021 19:37
Популярные вопросы
- Другие звезды располагаются далеко они кажутся нам маленькими точечками,...
3 - Встакане плавает кусок льда. как изменится уровень вода если лед растет...
3 - Определите вид односоставного предложения: вспоминаем очи карие, тихий...
1 - Запишіть об єм будь-якого газу за нормальних умов кількістю 1 моль...
2 - Как называется отдел глаза, который обеспечивает аккомодацию?...
2 - Гетерозиготный мужчина с 3 группой крови женится на женщине с 4 группой...
3 - Найдите сторону ас в треугольнике авс с прямым углом с, если вс - 8, ав...
2 - Сколько ведер воды объемом 25 дм3 перелить в бассейн вместеимостью 250литров...
2 - Сколько из известных аминокислот участвуют в синтезе белков...
2 - Напишите, , план комплексного анализа текста)...
3
var n, sum: integer;
begin
sum := 0;
while (n >= 0) do
begin
sum := sum + n;
read(n);
end;
writeln(sum);
end.