Найдите сумму всех чётных и проеизведение нечётных чисел от 1 до n

1

Ответы и объяснения

2013-11-22T14:03:07+00:00
Uses crt;
var n,i,s,pr:integer;
begin
readln(n);
s:=0;
pr:=1;
for i:=1 to n-1 do
if (i mod 2=0) then s:=s+i else pr:=pr*i;
writeln(s);
writeln(pr);
end.