84

Составте прогамму которая находит произведение n первых четных чисел

04 марта 2023

Составте прогамму которая находит произведение n первых четных чисел

категория: информатика



75

Varn,i,p: word; beginwrite ('Vvedite znachenie N: '); readln (n); if n<2 then p: =0 else p: =1; for i: =1 to n doif (i mod 2)=0 then p: =p*i; writeln ('Proizvedenie ravno ',p); write ('Dly vyhoda nagmite Enter'); readln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...