СРОЧНО ПОЖАЛУЙСТАданы стороны 3 х квадратов a,b,c

Задание:

СРОЧНО ПОЖАЛУЙСТАданы стороны 3 х квадратов a,b,c. Найдите площадь и периметр (понятие подпрограммы. Процедура. Описание. Применение.)

Решение:

Var a, b, c: integer; P1, p, s: real; Begin Readln (a, b, c); If a+b>c then p1: =a+b+c; P: =(a+b+c) /2; S: =sqrt (p*(p-a)*(p-b)*(p-c); Writeln (‘ p1=‘ , p1:5:2); Writeln (‘ s=’,s: 5:2); End. По формуле герон

Знаете другой ответ?

Отправить свой ответ