Question

Напишите программу вычисления идеального веса человека по формуле: Идеальный вес = Рост в см – 100. Значение роста вводится с клавиатуры. Результат вывести в следующем виде: «Для человека ростом 165 см идеальный вес равен 65 кг»

Answer 1

Uses
Crt;
Var
a,b:integer;
Begin
Writeln('Введите ваш рост в сантиметрах, округлив до целого значения');
Readln(a);
b:=a-100;
Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');
End.