<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
Y:=x*Cos(x)*Ln(abs(x) ) / sqrt(1+ x*x*x)
Z:=sqrt(abs(10*y-sin(2*Pi*y)) )*(1/Tan(x+y)-1)/18
Нужно решить уравнение 341+166=507
Определим, в какой системе счисления 1+6=7 (цифры единиц)
Это десятичная система счисления.
143-2=141
141/2=70.5=70
270
270+2=272
2722
2722.5
2722.52
Потому что она позволяет проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы.