Срочно нужно! Очень прошу, заранее спасибо!
1. Написать программу, которая по введенному росту,
определит ваш идеальный вес. Если идеальный вес отличается от вашего, попросит
ввести ваш вес и выведет на экран
рекомендации по питанию и физическим нагрузкам.

2

Ответы и объяснения

2014-04-07T14:44:17+04:00
Смотрите во вложении.........................................
2014-04-07T23:40:36+04:00
Program chik;
var a,b,c:integer;
begin
writeln('РОСТ:');
read(a);
b:=a-110;
writeln('Ваш вес:');
read(c);
if(b<c)then writeln('ВАМ НЕОБХОДИМО ПОХУДЕТЬ!!!')else
if(b-c<10)then writeln('ВСЕ ХОРМ') else writeln('Необходимо набрат вес'); 
end.
идеальный вес=рост-110(у женшин) а у мужиков -100