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

Question

Информатика

Илларион

21 января, 10:25

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

+1

Ответы (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.