На клавиатуре вводятся 10 чисел. Составьте программу, определяющую произведения чисел, меньших 5.
Циклы в Pascal
ещКеРе11
2
19.05.2020 10:52
1
Другие вопросы по теме Информатика
алекс1611
18.06.2019 05:50
igorpuzyrev1
18.06.2019 05:50
anna992
06.10.2019 10:02
290720031
06.10.2019 10:02
Yana6hhhh
06.10.2019 10:10
LobovM
01.07.2019 17:30
Androchshuk15
25.05.2019 10:10
sambovladikvladik
11.03.2019 17:39
Популярные вопросы
- В семье, где родители имеют нормальную свертываемость крови, сын-гемофилии....
2 - Где можно купить картонные коробки для подарков в туле?ОЧЕНЬ...
3 - 4. Соль массой 8 г растворили в 92 г воды. Определите:(а) растворитель(b)...
1 - Треугольник АВСД описан около окружности. ВС=12 см, АД=27 ,АВ в два раза больше...
1 - 2. Найдите абсолютную плотность хлороводорода (НС) и его относительную плотность...
3 - бесплатно просто напишите : Харе Кришна...
2 - Между сторонами угла АОВ, величиной 152 , ° проведены лучи ОС и ОМ так, что...
1 - Где в поэме м. ю. Лермонтова Иван Васильевич показывается чёрствым...
2 - установіть відповідність між сільськогосподарськими зонами України та їхньою...
2 - Составьте программу, в которой каждому элементу массива, стоящему на четном...
3
var
a, i, res: integer;
begin
res := 1;
for i := 1 to 10 do
begin
read(a);
if a < 5 then
res := res * a;
end;
writeln(res);
end.