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

Question

Информатика

Олежка

28 октября, 16:59

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

+5

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