С клавиатуры заданы длины основания трапеции a и высота b, а также стороны прямоугольника c и d. составьте программу которая определяет являются ли данные фигулы равновеликими

Question

Информатика

Татьянка

1 сентября, 12:56

С клавиатуры заданы длины основания трапеции a и высота b, а также стороны прямоугольника c и d. составьте программу которая определяет являются ли данные фигулы равновеликими

+2

Ответы (1)

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

Катуня · Answer 1

Var a, b, c, d:real;

begin

writeln ('Введите a, b, c, d') ;

readln (a, b, c, d) ;

if (a*b=c*d) then writeln ('равновелики')

else writeln ('не равновелики') ;

readln;

end.