В шестнадцатиричной системе. Восьмиричной - не хватает, Десятиричной - не складывается.
8 в 16 = 8 в 10
20 в 16 = 32 в 10
18 в 16 = 24 в 10
Program sum;
var <span>
x: array[1..30] of real;</span>
<span>i, k: integer;
s:real;
begin
k:=0;
s:=0;
for i:=1 to 30 do
begin
x[i]:=(1+i)/(</span>Exp(Ln<span>(i) </span>/ 3))<span>
if x[i]>0
then
begin
s:=s+x[i];
k:=k+1;
end;
end;
writeln('summa=',s);
writeln('kolvo elementov=', k);
readkey;
end.</span>
<em>// PascalABC.NET 3.2</em>
begin
var a,b,c:real;
Write('Введите длины сторон треугольника: '); Read(a,b,c);
Writeln('P=',a+b+c)
end.
Есть крутая вещь - справка! Найти аналоги функций не такая уж большая проблема...