Регистрация
radugraduga887
23.11.2022 01:32
Информатика
Есть ответ 👍

Эксель.
решите : даны три стороны a, b, c треугольника abc. вычислите его площадь по формуле герона s=(p(p-a)(p-b)(p-c))1/2, где p – полупериметр, а также радиусы вписанной r=s/p и описанной r=(abc)/(4s) окружностей.
просто покажите, , как это должно быть оформлено, потому что нам ничего не объясняли(

214
455
Посмотреть ответы 1

Ответы на вопрос:

otlichnik41
otlichnik41
4,4(12 оценок)
Var    l,a,b: integer;     s: string; beginwrite('введите строку: '); readln(s); l: =length(s); writeln('l=',l); if l> 6 then    begin    a: =pos('(',s);     b: =pos(')',s);     if (a> 0) and (b> 0) then writeln(copy(s,a+1,b-a-1));     if (a=0) and (b> 0) then writeln('скобка не открыта');     if (a> 0) and (b=0) then writeln('скобка не закрыта');     if (a=0) and (b=0) then writeln('текста в скобках нет');   end; end.var    n,i,k: integer;     s,t: string; beginwrite('введите строку: '); readln(s); t: =s; repeat  i: =pos(' ',t);   delete(t,1,i);   until i=0; k: =length(t); for i: =1 to k do  if t[i]='k' then n: =n+1; writeln('кол-во букв k: ',n); end.

Популярно: Информатика