Question

Яп паскаль «условный оператор» . создайте программу вычисления идеального веса человека. программа позволяет пользователю ввести значение роста с новой строки. затем определяет идеальный вес по формуле: ид.вес = рост в см – 105. на экран выводится значение роста и идеального веса и рекомендацию о том, сколько пользователю нужно сбросить или набрать килограмм.

Answer 1

var a,b,c:integer;
begin
writeln('Введите рост в см');
writeln('Введите ваш вес');
readln(a,c);
//c вес т.к на основе его можно делать вывод приавить нужно вес или нет
//b идеальный вес
b:=a-105;
if (b<c) then writeln('a=',a,'c=',c,' ''Вам необходимо сбросить вес') else
if (c<b) then writeln('a=',a,'c=',c,' ''Вам необходимо прибавить в весе');
readln;
end.

Answer 2

Program Ves;

Uses Crt;

var h,c,i,p:real;

begin

     clrscr;

     write('Введите ваш вес в килограммах:'); 

      readln(p);

     write('Введите ваш рост в сантиметрах:');

     readln(h);

     i:=h-105;

     c:=i-p 

     writeln('Ваш рост в сантиметрах=',h); 

     if   (c=0) then writeln('Ваш вес идеален'); 

   if (c>0) then writeln('Для достижения идеального веса надо сбросить ' , с , ' килограмм')

            else  writeln('Для достижения идеального веса надо набрать ' ,с , ' килограмм'); 

     readkey;

 end.