Войти Регистрация Спроси ai-bota

Найти произведение нечетных чисел на промежутке от 1 до 8

Ответ:

dmit0

02.10.2020 13:29

Var p,i: integer;
begin
p:=1;
for i:=1 to 8 do
if (i mod 2 <> 0) then
p:=p*i;
writeln(p);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

nikputen

29.05.2022 03:48

очень Нужно построить блок схему 1)Дан одномерный массив подсчитать количество нулевых элементов. (Элементы равные нулю) 2)Дан двумерный массив посчитать произведение отрицательных...

Kpoper772

16.03.2023 04:03

, кто сможет Квадратную матрицу N повернуть на 270 градусов(Паскаль)...

sva25717

08.01.2020 02:42

Из ряда чисел 3, 10, 21, 28 выпиши те, которые удовлетворяют условию....

KAY111

02.01.2022 14:59

Програма маэ вивести n-раз ваше призвіще (моя фамилия Пономаренко) ...

erzhankenzhekan

03.01.2020 12:18

Можете я просто не разбираюсь...

leragoroshkova

04.09.2020 06:36

На вході маємо два числа ( наприклад а і б) програма має перевіряти чи ці числа має виводитися повідомлення числа рівні якщо перше число більше, то повідомлення перше число...

nikitaaleksandrov

18.06.2020 13:26

Что такое гиперссылка (hyperlink)?...

esbolat2000

08.01.2022 04:07

Таблица степеней двойки, которая показывает, сколько информации можно закодировать с бит. Заполни таблицу. i 0 9 N=2i...

FAKOI

05.04.2023 20:04

Для каждого оператора, указанного в левой колонке, подберите соответствующее ему описание из правой колонки: а) WRITE1) осуществляет вывод на экран; б) BEGIN2) условный оператор...

liza1439

28.06.2022 19:47

Определить объем памяти, необходимый для хранения 1 страницырастрового графического изображенияразмером 800*600 точек с палитрой 64 цвета....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку