Question

Pascal. Geany пожалуйста
Найти сумму и произведение четных чисел от a до n (a<n)

Answer 1

Program z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.