Ответы
Ответ дал:
0
uses crt;
var
i,s:integer;
begin
i:=2; s:=1;
while i<=10 do
begin
s:=s*i;
i:=i+2;
end;
write(s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад