Написать программу на паскале: "ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит"
prudniksveta
2
20.05.2019 16:50
0
Другие вопросы по теме Информатика
Nazrin24
14.12.2020 10:29
машаоляапро
14.12.2020 10:32
Babl11
09.04.2021 09:06
toktamuratovanilufar
21.06.2019 01:50
nek2017pro
21.06.2019 01:50
коротенко87
19.10.2020 14:46
Waxcbortb
19.10.2020 14:37
1990200827
19.10.2020 14:46
Популярные вопросы
- Какие вещества образуются при нагревании водного раствора щёлочи с: 1) хлоридом...
1 - Назва продукту взаємодії метанаміну з хлоридною кислотою...
1 - Мифы древней Греции. Подвиги Геракла. 1) Скотный двор царя Авгия. 2) Яблоки Гесперид....
3 - Обчисліть масу оксиду кальцію, що його потрібно використати для поглинання хлороводню...
2 - НУЖНО 10 ПРЕДЛОЖЕНИЙ С СКС(слово категории состояния) ...
3 - Реши орфографические задачи, определи синтаксическую функцию неопределённых и отрицательных...
3 - Написать от 1 до 3 названий растений семейства розоцветных-Значение : Съедобные...
3 - Выпишите все видимые грани многогранника * Сколько у многогранника граней? Определите...
1 - Де відбулась вирішальна битва між Антонієм і Октавіаном?...
3 - III. Запишите предложения, вставляя пропущенные буквы, раскрывая скобки, Подчеркните...
2
program p;
var a,b: integer;
begin
a:=1;
repeat begin
writeln('Введите число: ');
readln(b); if b<0 then a:=a*b;
until b=0; writeln('ответ:',a);
readln; end.