Паскаль надо решить , сделать програмку y=2sinx+0, 5

Uses crt; var x, y: real; begin write('x='); read(x); y: =2*sin(x)+0.5; write('y=',y); end.

Var x,y: real; begin   readln (x);   y: =2*sin(x)+0.5;   writeln (y); end.

var

  n: integer;

begin

  write('n = ');

  readln(n);

  if (n mod 10) > ((n div 100) mod 10) then

    writeln('последняя больше второй')

  else

    if  (n mod 10) < ((n div 100) mod 10) then

        writeln('вторая больше последней')

    else

        writeln('они равны');

  readln;

end.

 

 

 

// вторая программа

var

  n, pr: integer;

begin

  write('n = ');

  readln(n);

  pr : = 1;

  while n > 0 do

  begin

      pr : = pr * (n mod 10);

    n : = n div 10;

  end;

  writeln('pr = ', pr);

 

  if pr mod 5 = 0 then

      writeln('кратно')

  else

    writeln('некратно');

  readln;

end.

Const   m1 = 10;   n1 = 8; var   x: array[1..m1, 1..n1] of integer;   i, j, m, n, t: integer; begin   write('введите через пробел число строк и столбцов матрицы: ');   read(m,n);   randomize;   writeln('исходная матрица');   for i: = 1 to m do begin       for j: =1 to n do begin           x[i,j]: = random(50)+1;           write(x[i,j]: 3)       end;       writeln   end;   { простая обменная сортировка первого столбца }   for i: =1 to m-1 do       for j: =1 to m-1 do           if x[j,1]> x[j+1,1] then           begin t: =x[j,1]; x[j,1]: =x[j+1,1]; x[j+1,1]: =t end;   writeln('результирующая матрица');   for i: = 1 to m do begin       for j: =1 to n do write(x[i,j]: 3);       writeln   end end. тестовое решение: введите через пробел число строк и столбцов матрицы: 10 8 исходная матрица   44 28 35 45 28 21 24 31   39 10  1 27 33  3  7 39   22  8 45  4 33 11 23 37   18 50 48 12 45 28  1 32   3 25 45 11 40 49 47 17   28 16 46 43 11 13 22 18   27 24 45 33 44 44 34 34   6 49 27 28 24 13 37 12   9 19 25  8  8 47 49 24   11 29 26 18 16 30 27  6 результирующая матрица   3 28 35 45 28 21 24 31   6 10  1 27 33  3  7 39   9  8 45  4 33 11 23 37   11 50 48 12 45 28  1 32   18 25 45 11 40 49 47 17   22 16 46 43 11 13 22 18   27 24 45 33 44 44 34 34   28 49 27 28 24 13 37 12   39 19 25  8  8 47 49 24   44 29 26 18 16 30 27  6