Question

6. Известно, что нормальный вес человека можно определить, используя формулу: Вес = рост (см) * окружность гр. клетки (см) / 240 Как записать алгоритмом в паскале? Очень надо, помогите, пожалуйста

Answer 1

Var
  ves,rost,ogk:real;
begin
  Write('Введите рост и длину окружности грудной клетки в см: ');
  Readln(rost,ogk);
  ves:=rost*ogk/240;
  Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.

Answer 2

Конечно! Вот алгоритм на языке Pascal для расчета нормального веса человека на основе заданного роста и окружности грудной клетки:

pascalCopy code
program CalculateWeight;

var
  Height, ChestCircumference, Weight: real;

begin
  writeln('Введите рост (в сантиметрах): ');
  readln(Height);
  
  writeln('Введите окружность грудной клетки (в сантиметрах): ');
  readln(ChestCircumference);
  
  Weight := Height * ChestCircumference / 240;
  
  writeln('Нормальный вес: ', Weight:0:2, ' кг');
end.

Пользователь будет приглашен ввести рост и окружность грудной клетки в сантиметрах. Затем программа рассчитает нормальный вес, используя формулу и выведет результат на экран. Результат будет выведен с округлением до двух десятичных знаков.