Предмет: Информатика,
автор: leelee1
пожалуйста помогите
Приложения:
Ответы
Автор ответа:
1
var per,a,b,c:integer;begin writeln('Введите три стороны треугольника: ');readln(a);readln(b);readln(c);per:= a+b+c;write ('Периметр равен: ');writeln(per);end.
Похожие вопросы
Предмет: Математика,
автор: fatimalip82
Предмет: Українська мова,
автор: sonyakononchenko
Предмет: География,
автор: radjabhizirov
Предмет: Математика,
автор: mskotsupera
Предмет: Литература,
автор: Twilight20
s,p:real ;
begin
writeln('Введите три стороны треугольника: ');
readln(a);
readln(b);
readln(c);
per:= a+b+c;
p:=per/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
write ('Периметр равен: ');
writeln(per);
write ('Площадь равна: ');
write(s);
end.