Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>