69

Срочно! Дано трехзначное число. Если сумма цифр этого числа превышает 15, то…

19 марта 2023

Срочно! Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывестипроизведение цифр этого числа.

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



53

var a: integer; s,s1: integer; begin readln (a); s: =(a div 100)+(a mod 100) div 10)+(a mod 100) mod 10); s1: =(a div 100)*(a mod 100) div 10)*(a mod 100) mod 10); if s>15 then writeln (s) else writeln (s1); end.

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


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