Program n_1;
var s,i:int64;
begin
s:=1;
for i:=2 to 20 do
if i mod 2 = 1 then s:=s*i;
writeln(s);
end.
Представлю два варианта:
Версия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)
Program n_1;
var s,i:int64;
begin
s:=1;
for i:=2 to 20 do
if i mod 2 = 1 then s:=s*i;
writeln(s);
end.
Представлю два варианта:
С использованием PascalABC.NETС использованием обычного PascalВерсия PascalABC.NET - 3.4.2, сборка 1978 (12.02.2019)