Составить программу перевода (в паскале) радианной меры угла в градусы, минуты и секунды.

Program convert; var  num: real; result: real; begin  write('введи значение в радианах: ');   readln(num);   result: = num * 57.29;   writeln('градусы: ',result);   result: = num * 3437.75;   writeln('минуты: ',result);   result: = num * 206264.99;   writeln('секунды: ',result); end.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

 

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.