Ответ:
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 использовал
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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 использовал