97

Помогите написать в паскале!

19 февраля 2023

Помогите написать в паскале!

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

81

Var x, y, z: integer; Begin read (x, y, z); if x mod 2=0 then x: =x*y*z else if y mod 2=0 then y: =x*y*z else if z mod 2=0 then z: =x*y*z; writeln (x: 3, y: 3, z: 3); End.

Знаете ответ?

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