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