Ответы на вопрос:
Program n1; var n,i: integer; p: real; begin p: =1; readln(n); for i: =1 to n do if i mod 2< > 0 then p: =p*i; write(p); end.
Популярно: Информатика
-
До якої з алгоритмічних структур належить перехід дороги із світлофором?...
Kroq12303.05.2021 18:17 -
Преобразавать базу данных,созданных в SQL,в таблицу Четвертое задание...
Anutka15Love22.06.2021 06:25 -
2. ответь на во и запиши в тетрадь 1. Для чего предназначен гипертекст? 2....
elizavetawwwpotex21.05.2023 08:10 -
Укажите черты, характерные для «компьютерной» технологии создания текстовых...
Masha815718.05.2020 11:32 -
Исполнитель чертёжник перемещается на координатной плоскости, оставляя след...
mikkimaus2011.11.2021 15:47 -
Написати програму в Паскалі, яка б обчислила X=y²+s, якщо y=5, s=-99...
Фарида12010725.03.2023 11:23 -
Розробіть інформаційний бюлетень на тему Наша подорож ,оформивши його 2-3 фотографіями,малюнками,виконаними...
хахаха4131.05.2022 00:05 -
Второй сор по ИВТ 5 класс 3четверть...
coolmeen16.11.2022 18:28 -
3класс информатика ; свойство (является инструментом для обработки числовой...
Egor19060610.04.2023 10:34 -
Написать программу в pascal и составить её блок -схему: по возрасту, введённому...
Annet22529.03.2021 20:29