<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:integer;
repeat
n:=ReadInteger;
if n>0 then begin
var d:=false; // нужны цифры
var a:=false; // нужны буквы
repeat
var r:=n mod 16;
if r in [0..9] then d:=true
else a:=true;
n:=n div 16
until (d and a) or (n=0);
if a and d then Writeln(3)
else
if a then Writeln(1)
else Writeln(2);
n:=-1 // чтобы из цикла не выйти
end
until n=0
end.
<u>Пример</u>
13
1
15
1
9
2
27
3
0
маша переливает в 2 литр кострюльку литр а потом переливает к маши
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
var y:=Ln(5*x)+Sqrt(Cos(x)/x)+12*x+Sin(10*x);
Writeln('y=',y)
end.
<u>Примеры</u>
x= 1.424
y=20.3661207208549
x= 0
y=NaN - результат не является допустимым числом (логарифм 0)