Перевести 2500 бит в байты. ответ расписать подробно *

Объяснение:

В 1 байте 8 бит =>

=> 2500/8 = 312,5 байта

312,5 Байтов готово'' '

Program P1;
const
  R=150000000;
begin
  Writeln('Длина орбиты Земли составляет ',2*Pi*R:0:0,' км.')
end.

Результат выполнения программы:
Длина орбиты Земли составляет 942477796 км.

program p2;
var
  stazh,vozrast:integer;
begin
  Write('Введите через пробел стаж и возраст: ');
  Readln(stazh,vozrast);
  if (stazh>=20) and (vozrast<=45) then Writeln('Принимается')
  else Writeln('Не принимается')
end.

Тестовое решение:
Введите через пробел стаж и возраст: 23 50
Не принимается

program p3;
var
  i,j,k:integer;
begin
  for i:=1 to 9 do
    for j:=0 to 9 do
      for k:=0 to 9 do
        if sqr(i)+sqr(j)+sqr(k)=105
        then Write(i,j,k,' ')
end.
   
Результат выполнения программы:
458 485 548 584 845 854

Program  Techies2001;
uses crt;
const n=10;
var
  s:string;
  i,j:integer;
  x0,y0,xn,yn,xk,yk:real;
begin
  S:='*** Alphaeus is thinking... ***';
  for i:=1 to length(s) do
    begin
      write(s[i]);
      for j:=1 to 500000 do s[i]:=s[i]; 
    end;
  writeln();
  writeln('***          OK             ***');
  writeln();
  writeln('На окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. Определить номера четвертей окружности, в которых находятся начальная и конечная точки.');
  writeln('Введите координаты точек:');
  write('x0='); readln(x0);
  write('y0='); readln(y0);
  write('xn='); readln(xn);
  write('yn='); readln(yn);
  write('xk='); readln(xk);
  write('yk='); readln(yk);
  if ((xn=x0) AND (yn=y0)) OR ((xk=x0) AND (yk=y0)) then
      writeln('Начало или конец дуги совпадают с центром')
   else
      begin
         if ((xn>x0) AND (yn>y0)) then writeln('Начало дуги находится в I четверти');
         if ((xn<x0) AND (yn>y0)) then writeln('Начало дуги находится во II четверти');
         if ((xn<x0) AND (yn<y0)) then writeln('Начало дуги находится в III четверти');
         if ((xn>x0) AND (yn<y0)) then writeln('Начало дуги находится в IV четверти');
         if ((xn=x0) AND (yn>y0)) then writeln('Начало дуги находится на оси Х на границе I и II четверти');
         if ((xn<x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе II и III четверти');
         if ((xn=x0) AND (yn<y0)) then writeln('Начало дуги находится на оси Х на границе III и IV четверти');
         if ((xn>x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе I и IV четверти');
         if ((xk>x0) AND (yk>y0)) then writeln('Конец дуги находится в I четверти');
         if ((xk<x0) AND (yk>y0)) then writeln('Конец дуги находится вî II четверти');
         if ((xk<x0) AND (yk<y0)) then writeln('Конец дуги находится в III четверти');
         if ((xk>x0) AND (yk<y0)) then writeln('Конец дуги находится в IV четверти');
         if ((xk=x0) AND (yk>y0)) then writeln('Конец дуги находится на оси Х на границе I и II четверти');
         if ((xk<x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе II и III четверти');
         if ((xk=x0) AND (yk<y0)) then writeln('Конец дуги находится на оси Х на границе III и IV четверти');
         if ((xk>x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе I и IV четверти');
  end;
end.