<span>var
i,summ: real;
begin
for i := 2 to 50 do begin
summ :=summ+s</span><span>qrt(i)</span><span>;
i:=i+1;
end;
writeln(summ)
end.
//как то так но ошибка вылетает я хз </span>
Http://ideone.com/Fr4RGn вот тут весь код ........................................................................
. Поведение объекта.
2. Единичное имя.
3. Свойство.
4. Множество.
5. Модель.
6. Состояние.
7. Признак.
8. Слово или название, быть может. (Я что-то вопрос не поняла)
<span>9. Общее имя. </span>
Ответ:
Объяснение:
var
a, b, c:real;
s, per:real;
p:real;
begin
a:=3;
b:=4;
c:=sqrt((a*a) + (b*b));
per:=a+b+c;
p:=per/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('P = ', per);
writeln('S = ', s);
end.