Скорее всего это 1, ну мне так кажется)
И будет результат нулем. Переменной s значение нигде не присваивается.
Вместо строки <span>writeln('периметр ',a+b+c); записать p:=(a+b+c)/2; writeln('полупериметр ',p);
</span>Вместо строки writeln('площадь ',sqrt(p*(p-a)*(p-b)*(p-c))); записать
<span>s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('площадь ',s);</span>
Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
Принцип такой, формулу свою вставь
<span>uses crt;
var x,e,s,t:real;
k:integer;
begin
clrscr;
e:=0.000001;
write('x=');
readln(x);
s:=0;
t:=1;
k:=0;
while abs(t)>e do
begin
k:=k+1;
t:=-t*x*x/(2*k*(2*k-1));
s:=s+t;
end;
write('S=',s:0:6);
readln;
end.</span>
Ru Рашка
ua Украина
org Оргия какая-то
cn Ускоглазики из Китая