Поделитесь своими знаниями, ответьте на вопрос:
Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах)-100. Рекомендуемый вид экрана во время работы программы приведен ниже (данные, введенные пользователем, выделены полужирным шрифтом Введите в одной строке через пробел рост (см) и вес (кг) затем нажмите -> 170 68 Вам надо поправиться на 2.00 кг. (Язык программирования - паскаль)
program rost_ves;
var
r,v,ans:real;
begin
read(r,v);
ans:=r-100-v;
if ans=0 then
write('У Вас оптимальный вес')
else
if ans>0
then
write('Вам нужно поправится на ',ans,' кг')
else
write('Вам нужно похудеть на ',abs(ans),' кг')
end.