Информатика, вопрос задал arturshadrin0101 , 2 года назад

Определить, являются ли четыре числа A, B, C и D челенами верной пропорции. (паскаль) ​


fedrfedr: A / B = C / D ?

Ответы на вопрос

Ответил fedrfedr
1

Ответ:

Объяснение:

program Proportion;

var

 a, b, c, d: Double;

begin

 Write ('a, b, c, d = ');

 ReadLn (a, b, c, d);

 if a / b =  c / d then

   WriteLn ('Пропорция верна.')

 else

   WriteLn ('Пропорция не верна.');

  ReadLn;

end.

Новые вопросы