Задание:
Помогите пожалуйста с паскалем! В компьюьтер с клавиатуры вводятся 11 целых чисел. Посчитать произведение чисел, кратных 5 и оканчивающихся цифрой 0.
Решение:
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.
Знаете другой ответ?