Решите 3 задачу очень срочно
Приложения:
Ответы на вопрос
Ответил ManulTheLiar
0
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.
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.
Новые вопросы