PASCAL ABC Даны натуральные числа х1, х2,…, xn. Определить произведение членов последовательности, являющихся нечетными числами.
СарварИбрагимов11
3
03.12.2021 16:43
5
Другие вопросы по теме Информатика
olinikvioletta62
02.12.2020 17:38
Ерс01
02.12.2020 17:38
Nikita1356
02.12.2020 17:39
Kaska322
02.12.2020 17:39
GGG1771
16.07.2019 22:40
mkagermazov
20.12.2020 18:01
SabinaLi1001
14.06.2019 23:00
Dora2020
14.06.2019 23:00
Популярные вопросы
- 2 задачи, геометрии 3. Основанием прямой призмы ABCA1B1C1 служит прямоугольный треугольник...
2 - 1.Антропогенез-это наследственные изменения обезьяноподобного предка человека? 2.К...
3 - Один из острых углов прямоугольного треугольника равен 30,а прилежащий к нему катет...
2 - Шартты райды табыңыз * барсабарса игі едібарар...
3 - **БУДЬЛАСКА ДО ІТЬ ** Відправте фото зробленого завдання (Практична робота №6 стр.32-33)...
3 - Образуйте от данных глаголов существительные на -ая, -ий, -це и составьте с ними...
2 - решить! Кто знает как решать !...
3 - Отряды птиц: Экологическая группа: 1. Страусообразные А. Птицы леса 2. Нанду Б....
2 - Сочинение на 3 страницы по теме: Любовь в произведении Дикая охота Короля Стаха...
2 - Напишіть повідомлення на тему Життя народів на території України в 5-9-му століттях...
3
var
n,x,a: integer;
begin
write('Введите количество в последовательности: ');
read(n);
a:= 1;
while n <> 0 do
begin
readln(x);
a:= x * a;
n:= n-1
end;
writeln('Произведение членов последовательности: ',a)
end.