Помогите пожалуйста с паскалем!
В компьюьтер с клавиатуры вводятся 11 целых чисел. Посчитать произведение чисел, кратных 5 и оканчивающихся цифрой 0.

1

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

2013-11-01T16:17:17+04:00
Var x,s,i:integer;
Begin
 s=1;
 for i:=1 to 11 do
   begin
    readln(x);
    if ((x mod 5)=0)and((x mod 10)=0) then s:=s*x;
   end;
 writeln('s=',s);
End.