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.
здесь как я вижу даны варианты правильный вариан:
var
x:real;
begin
x:=(33+36)/(4+8);
writeln('x=',x:4:2);
readln;
end.
ответ после компиляции:=5.75