Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
что?
написано не понятно?
program ssd;
uses crt,graph;
var d,m: integer;
begin
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
end.
var a,b,c,s,p: real;
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
вроде так
Популярные вопросы