Решите 3 задачу очень срочно
Program prog;
uses crt;
var i,n,p: integer;
begin
clrscr;
write(Введите число N = );
readln(n);
p:=1;
for i:=1 to n do
if i mod 2 = 0 then p:=p*i;
writeln(P = ,p);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
