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

Question

84

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

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

ответить

в избранное ссылка

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

kosmanskij · Accepted Answer

75

kosmanskij

13 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: