2R0MaNbI4
Можно было сократить код, если вы проходили оператор 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.
1 votes Thanks 0
2R0MaNbI4
Опять код нормально не вставляется. Но в комментариях он вставляется нормально :/
2R0MaNbI4
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.
Answers & 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<normWeight then writeln('Ваш вес (',realWeight,') ниже нормы (',normWeight,'). Рекомендуется набрать вес.'); if realWeight=normWeight then writeln('У вас идеальный вес.');end.
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.