Question

информатика
помогите пожалуйста срочно!!!​

Answer 1

Программа:

program my_program;

var n: integer;

function frac(a: real; b: real):real;

begin

 frac:= a/b;

end;

procedure get(var a: integer; s: string := '');

var c: integer;

label k;

begin

 if(s<>'')

   then writeln(s);

 k:

 try

   readln(c);

   a:= c;

   exit;

 except

   writeln('Неверный формат ввода! Повторите попытку.');

 end;

 goto k;

end;

begin

 get(

   n,

   'Введите число n:'

 );

 if(n mod 11 = 0)

 then

   writeln(

     sqrt(n)+trunc(12.3)

   )

 else

   writeln(

     frac(

       n*n*n,

       0.7125*n+88*pi

     )

   );

end.