ТутРешу.Ру

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

Задание:

Помогите пожалуйста с паскалем! В компьюьтер с клавиатуры вводятся 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.




Знаете другой ответ?

Отправить свой ответ