Вычисли =33+36/4+8 . Запиши программу для вычисления в Паскале и выведи на экран. var x:real; begin x:=(33+36)/(4+8); end. var x:real; begin x:=(33+36)*(4+8); writeln('x=', x:4:2); readln; end. var x:char; begin x:=(33+36)/(4+8); writeln('x=', x:4:2); readln; end. var x:real; begin x:=(33+36)/(4+8); writeln('x=', x:4:2); readln; end.

здесь как я вижу даны варианты правильный вариан:

var

x:real;

begin

x:=(33+36)/(4+8);

writeln('x=',x:4:2);

readln;

end.

ответ после компиляции:=5.75

stdout:

/temp/compiling/source.bas(1) error 3: Expected End-of-Line, found 'Pascal'

Pascal;

^

/temp/compiling/source.bas(2) error 10: Expected '=', found ';'

Var;

  ^

/temp/compiling/source.bas(3) error 3: Expected End-of-Line, found '�'

   a,b:integer;

^

/temp/compiling/source.bas(4) error 10: Expected '=', found ';'

Begin;

    ^

/temp/compiling/source.bas(5) error 3: Expected End-of-Line, found '�'

   read(a,b);

^

/temp/compiling/source.bas(6) error 3: Expected End-of-Line, found '�'

   write(a+b);

^

/temp/compiling/source.bas(7) error 10: Expected '='

End.

^

/temp/compiling/source.bas(9) error 3: Expected End-of-Line, found '�'

Язык C++

^

/temp/compiling/source.bas(11) error 145: Only valid in -lang fb or deprecated or fblite, found 'using'

using namespace std;

^

/temp/compiling/source.bas(12) error 6: Expected '(', found 'main'

int main() {

   ^

/temp/compiling/source.bas(12) error 132: Too many errors, exiting

stderr:

Вот тебе в паскале

program ryad_chisel;

var N, t:integer;

begin

read(N);

t:=(N*(N+1))div 2;

if t mod 2 =1 then writeln('IMPOSSIBLE')

else begin

     if N mod 2 =0 then begin

                        t:=N div 4;

                        repeat

                        write('+');

                        t:=t-1;

                        until t=0;

                        t:=N div 2;

                        repeat

                        write('-');

                        t:=t-1;

                        until t=0;

                        t:=N div 4;

                        repeat

                        write('+');

                        t:=t-1;

                        until t=0;

                        end

     else begin

          t:=((N+1) div 4)-1;

          repeat

          write('+');

          t:=t-1;

          until t=0;

          t:=((N-1) div 2)+1;

          repeat

          write('-');

          t:=t-1;

          until t=0;

          t:=(N+1) div 4;

          repeat

          write('+');

          t:=t-1;

          until t=0;

          end

     end    

end.