Вычислить выражение s=3x+29-10x. если сумма больше 25, то вывести ее на экран, в противном случае вывести на экран текст: " ? ".

//PascalABC.NET 3.2

begin
  var x := ReadlnReal('x =');
  var s := 3*x + 29 - 10*x;
  if s > 25 then write(s)
  else write('?');
end.

Могут:
– 31: для числа 111 сумма остатков равна 1+1+1=3, произведение цифр 1*1*1=1
– 813: для числа 339 произведение цифр 3*3*9=81, сумма остатков 1+1+1=3
– 7293: для числа 999 проивзедение цифр 9*9*9=729, сумма остатков 1+1+1=3

Остальные не могут. 
– 32: если сумма остатков 3, то все цифры нечетные, их произведение не может быть равно 2. Если сумма остатков 2, то одна из цифр четная, произведение не может быть равно 3.
– 43: Сумма остатков не превышает 3, значит, 3 – сумма остатков (поэтому все цифры нечетные), тогда произведение не будет четному числу 4.
– 52: сумма остатков 2, одна из цифр четная, но тогда произведение не будет равно нечетному числу 5
– 132: аналогично, сумма остатков 2, произведение должно быть четным (а оно 13)
– 190: аналогично, сумма остатков 0, тогда все цифры четные, но произведение 19

var 

  a, b, c: real;

 

begin

  writeln('Введите 3 любых числа');

  readln(a, b, c);

  if (a < b) and (a < c) then writeln(a, ' - наименьшее число');

  if (b < a) and (b < c) then writeln(b, ' - наименьшее число');

  if (c < a) and (c < b) then writeln(c, ' - наименьшее число');

  if (a > b) and (a > c) then writeln(a, ' - наибольшее число');

  if (b > a) and (b > c) then writeln(b, ' - наибольшее число');

  if (c > a) and (c > b) then writeln(c, ' - наибольшее число');

  readln; //Убрать если среда разработки не Turbo Pascal

end.