Задача в Паскале. с помощью оператора while напишите программу определения идеального...

Question

Задача в Паскале. с помощью оператора while напишите программу определения идеального веса для взрослых по формуле: ид. вес=рост-100. выход из цикла : значение роста=250

Comments

с какого роста начать ?

---

сударыня, извольте ответить

---

там не написано

---

тогда я начну с 1 м 80 см, надеюсь вы не против?

---

нет

Answer 1

Var a,b,c:integer;
begin
a:=180;
while a<=250 do begin<br>b:=a-100;
writeln('идеальный вес для ', a ,' метра роста ', b,' килограмм');
a:=a+1;
end;
end.