Var n,sum,d,ind,first:integer;
begin
Write('n');
Readln(n);
d:=1;
ind:=0;
sum:=0;
if n div d=0 then
begin
ind:=1;
sum:=n;
end
else
begin
while n div d<>0 do
begin
inc(ind);
sum:=sum+(n div d) mod 10;
d:=d*10;
end;
end;
Writeln('suma',Sum);
Writeln('kolvo',ind);
first:=(n div round(d/10)) mod 10;
writeln('first',first);
readln;
end.
Ответ:
На отрезке по оси обсцис от 0 до 9 узнать ординату, где функция =√х
If b%a==0: print ('YES')
Else: print ('NO')
Var a:byte;
begin
write ('<span>x+y=a+b');
end.</span>
Ответ:
(15 + 3) × (5 + 2 - 1) - 4
(7 + 2) × 3 - 4 × (5 - 1)
c -d + a - b
Это инфиксная, т.е. самая обычная запись.
И во вложении дерево для первого примера. Остальные строятся аналогично (см. дерево и исходную запись - там все просто)