<span>System.Math.Sin(от чего)</span>
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
Если значение y не менялось и равно 29, то первоначальное значение х=-23
x:=x+y, x=-23+29=6
Ответ:
1)V=2Int,где 2-стерео,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит V=2*16*10000*20=6400000 бит,делим на 8,затем на 1024 - 781,25 Кбайт
2)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит 22050 *10 *1 = 220500 байт(8бит - 1байт,а 22,05 из кГц переводим в Гц путем умножения на 1000)
3)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.t = V/(n*I).Значит t = 5505024/( 22050 *2) = 124,8 сек(Мб переводим в байты,а кГц в Гц)
Объяснение:
Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.