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

Question

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

Answer 1

84

bloodshut

10 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить