Question

Напишите программу на паскале, которая расчитывает ИМТ при заданном росте и весе по формуле ИМТ = масса (кг) / вес (м) ²

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (рост,вес):=ReadReal2('Введите рост в см и вес в кг:');
  Writeln('Ваш ИМТ равен ',вес/Sqr(рост/100):0:1)
end.

Пример
Введите рост в см и вес в кг: 170 60
Ваш ИМТ равен 20.8