Срочно нужно! Очень прошу, заранее спасибо!
1. Написать программу, которая по введенному росту,
определит ваш идеальный вес. Если идеальный вес отличается от вашего, попросит
ввести ваш вес и выведет на экран
рекомендации по питанию и физическим нагрузкам.
Ответы на вопрос
Ответил kage1998
0
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.
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.
Новые вопросы