Контроль веса (множественный выбор с использованием if) — Pascal(Паскаль)

program optves;
var
     w:real; { вес }
     h:real; { рост }
     opt:real; { оптимальный вес }
     d:real; { отклонение от оптимального веса }
begin
 writeln('Введите в одной строке через пробел');
 writeln ('вес (в кг) и рост (в см), затем нажмите <Enter>');
     write('->');
     readln(w,h);
     opt:=h-100;  
     if w=opt
         then
              writeln('Ваш вес оптимален!')
         else
              if w<opt
                  then begin
                       d:=opt-w;
                       writeln('Вам надо поправиться на ',d:5:2,' кг.');
                  end
                  else begin
                       d:=w-opt;
                       writeln('Вам надо похудеть на',d:5:2,' кг');
                  end;
end.

Leave a Comment

58 − = 57