var a,b:integer;
n,i:byte;
begin
a:=1;
while i<>20 do
if (i mod 2)=1 then
a:=a*i;
inc(i);
end;
writeln(a);
readln;
end.
Объяснение:
While использовал
var a,b:integer;
n,i:byte;
begin
a:=1;
while i<>20 do
begin
if (i mod 2)=1 then
a:=a*i;
inc(i);
end;
writeln(a);
readln;
end.
Объяснение:
While использовал