Дано трехзначное число найти сумму либо произведение его цифр в зависимости

Дано трехзначное число определить сумму или произведение его цифр в зависимости от четности.Если число четное то обретаем творение его цифр если нечетное сумму.

Сделать код в паскале.

Задать свой вопрос
1 ответ

Program n_1;

var x:integer;

begin

   read(x);

   if x mod 2 = 1 then writeln((x mod 10) + (x div 10 mod 10) + (x div 100))

   else writeln((x mod 10) * (x div 10 mod 10) * (x div 100));

end.

Елизавета Машкет
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт