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

ДжоннСина ДжоннСина    2   09.03.2019 17:40    2

Ответы
ерик12840 ерик12840  22.05.2020 23: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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика