Question

Помогите, пожалуйста (Pascal)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

** 1 **

begin
  var n:=Abs(ReadInteger('n=')); // Abs - от минуса
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  if s.Between(10,99) then Writeln('Является')
  else Writeln('Не является')
end.

Пример
n= 4271
Является

** 2 **

begin
  var (a,b,c):=ReadReal3('Введите a, b и c:');
  if (a=Max(Max(a,b),c)) and (c=Min(Min(a,b),c)) then
    (a,b,c):=(a*2,b*2,c*2)
  else (a,b,c):=(-a,-b,-c);
  Print(a,b,c)
end.

Пример
Введите a, b и c: 16 14.2 18
-16 -14.2 -18

** 3 **

begin
  var x:=ReadReal('x=');
  var fx:=x.Between(0,1) ? x**3+6 : x*x-3*x+9;
  Writeln(fx)
end.

Пример
x= 3.14
9.4396