Вычислите пропускную канала связи, если fm = 240 Гц, а Ns/Nr = 2^6.

640*480*3*8/28800 секунд

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.

x mod 5

-4 -3 -2 -1 0 1 2 3 4  

x div 5

любое целое число от  -429496729 до  429496729 (если x - longint) или от -13107 до  13107 если х - integer