90 баллов Напишите программу для определения имеет ли женщина идеальный вес. Значения...

Question

90 баллов Напишите программу для определения имеет ли женщина идеальный вес. Значения роста и фактического веса вводится с клавиатуры.Программа вычисляет идеальный вес женщин по формуле. Ид.вес=Рост в см-100-10%(170-100) Затем спрашивает вычисленный идеальный вес женщины с фактическим,и дает заключение является ли фактический вес человека идеальным или нет. Паскаль.

Comments

Можно формулу поточнее?

---

И вообще алгоритм поточнее)

---

рост(см)-100-10%

Answer 1

program MassaProg;

uses crt;

 var factmassa, heigth: integer;

 var massa: real;

begin

 writeln('Vvedite rost v santimetrah: ');

 readln(heigth);

 writeln('Vvedite ves: ');

 readln(factmassa);

 massa:=heigth-100-0.1*(170-100);

if massa = factmassa

 then writeln('Vash ves idealnii') else writeln('Vash ves ne idealnii');

end.

Comments

Эт как класс