Найти произведение положительных чисел значение которых не превышают 5 из 10 введённых !
Сива11
3
23.08.2019 08:20
2
Другие вопросы по теме Информатика
РаботныйАладушек
20.10.2021 01:34
РенатаG
20.10.2021 01:35
glebtomilovpop0
20.10.2021 01:42
gaga2244
26.07.2019 07:20
verakras
26.07.2019 07:20
умница20063
17.12.2020 17:34
Sulifat
17.12.2020 17:35
Angelina626
17.12.2020 17:36
окткл
17.12.2020 17:37
Популярные вопросы
- В чем причины поражений русской армии в 1915 г.?...
2 - Насколько царская власть сумела мобилизовать и использовать силы общества...
3 - Какие страны входили в Тройственный союз? Какие цели преследовал этот...
3 - Как вы думаете, передача помещичьих земель крестьянам решила бы проблему...
1 - Каким образом поражения русской армии в 1915 г. влияли на внутриполитическое...
3 - Согласны ли вы с утверждением, что «революция в России была закономерной,...
2 - Назовите основные политические кризисы 1917 г. и их последствия....
1 - Дайте характеристику политической позиции В.И. Ленина в апреле — августе...
1 - Какова была экономическая политика Временного правительства...
1 - Каковы объективные и субъективные причины краха самодержавия в феврале...
1
var a,p,i: integer;
begin
p:=1;
for i:=1 to 10 do
begin
readln(a);
if (a>0) and (a<=5) then p:=p*a;
end;
writeln(p);
end.