58

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

para31t 14 января 2020

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

категория: информатика

84

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...