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

Question

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

Comments

сори, ошибочка: не "if odd (i)...", а "if not odd(i)..."

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.