Предмет: Информатика,
автор: leelee1
пожалуйста помогите
Приложения:
Ответы
Автор ответа:
1
var per,a,b,c:integer;begin writeln('Введите три стороны треугольника: ');readln(a);readln(b);readln(c);per:= a+b+c;write ('Периметр равен: ');writeln(per);end.
Похожие вопросы
Предмет: Английский язык,
автор: hamitovakudabaeva
Предмет: История,
автор: Zahra03122009
Предмет: Биология,
автор: mashaklip2513
Предмет: Математика,
автор: 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.