Question

Составить программу для подсчета идеального веса человека. Данные для ввода: A-рост, V-возраст, P-признак(1 - мужчина, 0 - женщина) Формулы для расчета: Мужчины: S=(3A-450+V)*0.25+45 Женщины: S=(3A-450+V)*0.225+40.5

Answer 1

Program n1;
var a,v,p,s: real;
begin
write('введите рост: ');
readln(a);
write('введите возраст: ');
readln(v);
write('введите признак(1 - мужчина, 0 - женщина): ');
readln(p);
if p=1 then s:=(3*a-450+v)*0.25+45;
if p=0 then s:=(3*a-450+v)*0.225+40.5;
writeln('идеальный вес: ',s);
end.