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

114

440

Посмотреть ответы 3

Ответы на вопрос:

Cachu

Информатика

4,6(13 оценок)

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.

Tanya11011

Информатика

4,6(31 оценок)

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