Определить идеальный вес для этого человека. Турбо Паскаль
Определить идеальный вес для этого человека. Турбо Паскаль
Сделать при помощи case of
Известно такое соотношение идеального веса и роста человека по возрасту: от значения роста человека в сантиметрах берутся последние две цифры, а если возраст человека до 25 лет, то ее вес должен составлять 5 кг меньше полученного двузначного числа, для людей от 25 до 45 лет - равна этом двузначном числу, для старше 45 лет - двузначное число необходимо увеличить на 5. Заданные целые положительные числа Р - рост человека и N - ее возраст (Р <200, N <120). Определить идеальный вес для этого человека.
-
var
h, w, y: integer;
begin
write('рост? ');
readln(h);
write('возраст? ');
readln(y);
w := h mod 100;
case y of
1..25: dec(w, 5);
45..120: inc(w, 5);
end;
write('вес: ', w);
end. -
а сложность то в чём?
Вы хоть что-то писать начали?
-
похожая задачка была в делфи. Во система образования. Нифига не меняется