Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
Это всё одно и тоже, потому что компьютерный специалист и программист это одно и тоже
а комплексы не знаю как это относится к другим
Program z;
var n,p,i:integer;
begin
write('n=');
readln(n);
p:=1;
if n mod 2=1 then i:=1 else i:=2;
while i<=n do
begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.