Напишите программу, в которой осуществляется ввод целых чисел до тех пор, пока не будет введена единица, и подсчет произведения положительных чисел, используя оператор repeat
nikitaefimenko
2
20.04.2020 00:17
1
Другие вопросы по теме Информатика
Julia20033112
30.05.2019 03:50
Gorki2005
30.05.2019 01:45
Engishmaster
25.09.2021 00:17
Zhuldyz2005
19.01.2021 13:13
kostenkoelizav
19.01.2021 13:13
egorbychkov83
19.01.2021 13:12
mariyakohtuk
19.01.2021 13:11
Raul020507
19.01.2021 13:08
lozhe4ka
19.01.2021 13:07
Gdyfyttyffhfry
19.01.2021 13:04
Популярные вопросы
- Длина дороги — 56 км. Заасфальтировали 3/7 дороги. Вычисли, сколько километров...
3 - 3 Prepare to listen. Read the questions inexercise 4 carefully. Which towns...
2 - Как поступили многие дворяне белогвардейцы священнослужители краткий ответ...
2 - Укажите разноспрягаемый глагол.А) смотретьВ) хотетьС) видетьD) светать...
2 - Підвищує частоту і силу сeрцeвих скорочeньа) інсулінб)тeстостeронв) адрeналінг)мeлатонін...
3 - 3.Прочитайте речення. В один стовпчик випишіть кількісні числівники, в інший...
2 - Яку масу Феруму (ІІ) оксид можна відновити воднем об’ємом 8,96 л FeО + H 2...
2 - Нужно определить расстояние до звезды в парсеках по значениям видимой и абсолютной...
1 - Task 2. Fill in the gaps, using Conditionals. 1.If she (win) a lottery, she...
1 - как найти лицо трапеции? Еслы а-40 b-7 h-8 см все в сантиметри ...
1
var a,s: integer;
begin
s:=1;
repeat
write('Введите число: ');
readln(a);
if (a>0) then s:=s*a;
until a=1;
writeln('Произведение положительных чисел: ',s);
end.