Определить значение площади прямоугольника по его длине и диагонали в Паскале

Question

Информатика

Савватей

5 мая, 07:51

Определить значение площади прямоугольника по его длине и диагонали в Паскале

+3

Ответы (1)

Знаете ответ на вопрос?

Дануся · Answer 1

Program p;

var

a, b, c, s: integer;

begin

writeln ('введите длину:') ;

readln (a) ;

writeln ('введите диагональ:') ;

readln (c) ;

b : = sqrt ((sqr (c) - sqr (a))) ;

s : = a * b;

writeln ('площадь прямоугольника: ', s) ;

end.