Помогите с информатикой :) 40б

Question

Помогите с информатикой :) 40б

---

Answer 1

Можно было сократить код, если вы проходили оператор case

var  height,realWeight,normWeight:real;begin  writeln('Введите рост (в сантиметрах)');  readln(height);  writeln('Введите вес');  readln(realWeight);  normWeight:=height-100;  if realWeight>normWeight then    writeln('Ваш вес (',realWeight,') выше нормы (',normWeight,'). Рекомендуется сбросить вес.');  if realWeight<normWeight then    writeln('Ваш вес (',realWeight,') ниже нормы (',normWeight,'). Рекомендуется набрать вес.');  if realWeight=normWeight then    writeln('У вас идеальный вес.');end.

Comments

Опять код нормально не вставляется. Но в комментариях он вставляется нормально :/

---

var
height,realWeight,normWeight:real;
begin
writeln('Введите рост (в сантиметрах)');
readln(height);
writeln('Введите вес');
readln(realWeight);
normWeight:=height-100;
if realWeight>normWeight then
writeln('Ваш вес (',realWeight,') выше нормы (',normWeight,'). Рекомендуется сбросить вес.');
if realWeight writeln('Ваш вес (',realWeight,') ниже нормы (',normWeight,'). Рекомендуется набрать вес.');
if realWeight=normWeight then
writeln('У вас идеальный вес.');
end.