Найдите произведение всех однозначных чисел среди 8 введенных.паскаль
vovastrebkov161
1
14.03.2019 09:08
3
Другие вопросы по теме Информатика
zooz7654Кристина
17.09.2021 07:50
ketrin0309
18.05.2021 12:54
DEAFKEV
05.03.2021 15:48
Le213768
05.03.2021 15:45
Dasha6200411
11.05.2020 10:14
2РАД11
11.05.2020 10:14
milalutaya
11.05.2020 10:15
Ptigran
11.05.2020 10:14
Ариэль1606
02.07.2019 14:20
Популярные вопросы
- Перевести числа 1101011 и 1000110 в десятичную систему любым...
1 - Допиши по 2 существительных чтобы показать прямой и переносный смысл пример(он...
1 - На первой полке на18 книг меньше ,чем на второй.после того как число книг на...
1 - Джон решил открыть рыбный ресторан под названием в ,но засомневался,как правильно...
2 - Назовите физ. велечины(тоесть какая буква что обозначает) а то задал я лично...
1 - Коля, дима и саша собирали грибы. дима нашел в 2 раза больше грибов, чем коля,...
2 - Рівняння руху матеріальної точки має вигляд : x=-0,2t2. який це рух? обчисліть...
1 - Даны 3 последовательных натуральных числа. произведение 2 больших чисел на 20...
3 - Продолжите каждый из начатых примеров,чтобы получить сложные предложения. наступила...
2 - На туристской карте запись с указанием масштаба оказалась оторванной. можно...
1
var
i,k, p: integer;
begin
p:=1;
for i:=1 to 8 do
begin
Readln (k);
if k div 10 = 0 then p:=p*k
end;
writeln (p);
end.