Составьте программу печатающую значение true если указанное высказывание является истинным и false в противном случае числа a и b выражают длины катетов одного прямоугольного треугольника, а c и d - другого. эти треугольники являются подобными

Question

Информатика

Пава

5 июля, 18:11

Составьте программу печатающую значение true если указанное высказывание является истинным и false в противном случае числа a и b выражают длины катетов одного прямоугольного треугольника, а c и d - другого. эти треугольники являются подобными

+3

Ответы (1)

Знаете ответ?

Павлюка · Answer 1

var

a, b, c, d: integer;

begin

writeln ('Введите катеты a и b: ') ;

read (a, b) ;

writeln ('Введите катеты c и d: ') ;

read (c, d) ;

if a / b = c / d then write (true)

else write (false) ;

end.