Question

Помогите, пожалуйста

Составьте программу, вычисляющую произведение чётных двузначных чисел.
В паскаль

Answer 1

var i: integer;

   p: real;

   

begin

 p:=1;

 for i:=10 to 99 do

 if i mod 2=0 then p:=p*i;

 write ('произведение равно: ',p);  

end.