Предмет: Информатика,
автор: умный18
треугольник авс написать программу для вычесления Р и S
Ответы
Автор ответа:
0
var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
Автор ответа:
0
вы случайно не на программиста учитесь ??? второй курс??
Автор ответа:
0
11 класс, Математическая школа
Автор ответа:
0
..простите ...значит я вас с кем-то другим перепутала ...простите пожалуйста
Автор ответа:
0
Бывает=))
Автор ответа:
0
:)
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: cool7951
Предмет: Русский язык,
автор: naziraslekishina
Предмет: География,
автор: Kovylina2012
Предмет: Алгебра,
автор: Алинka555