Составить по алгоритму программу на языке программирования Pascal.

Question

Юлиана Носова

Информатика

28 июня, 04:17

Составить по алгоритму программу на языке программирования Pascal.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Михаил Алексеев · Answer 1

var a, b, c, p: integer;

r, s : real;

begin

write (' a, b, c = ');

readln (a, b, c);

p:=a+b+c;

r:=p/2;

s:=sqrt (r * (r-a) * (r-b) * (r-c));

writeln ('s=', s, ' p=', p);

end.