Математика, C#

Математика

program chisla;
var a,b,c,d,s:byte;
var hot,read:real;

begin

randomize;
    a:=random(200-100);
    b:=random(200-100);
    c:=random(200-100);
    d:=random(200-100);
    s:=random(19);
    case s of
1:begin writeln(a,'*',b,'+',c,'*',d,'=');
  hot:=(a*b)+(c*d);
  end;
2:begin writeln(a,'+',b,'+',c,'+',d,'=');
hot:=a+b+c+d;
end;
3:begin writeln(a,'+',b,'+',c,'-',d,'=');
hot:=a+b+c-d;
end;
4:begin writeln(a,'*',b,'-',c,'*',d,'=');
hot:=(a*b)-(c*d);
end;
5:begin writeln(a,'+',b,'-',c,'-',d,'=');
hot:=a+b-c+d;
end;
6:begin writeln(a,'+',b,'+',c,'*',d,'=');
hot:=a+b+(c*d);
end;
7:begin writeln(a,'+',b,'*',c,'+',d,'=');
hot:=a+(b*c)+d;
end;
8:begin writeln(a,'*',b,'+',c,'+',d,'=');
hot:=(a*b)+c+d;
end;
9:begin writeln('(',a,'+',b,'+',c,')/',d,'=');
hot:=(a+b+c)/d;
end;
10:begin writeln(a,'/',b,'-',c,'/',d,'=');
hot:=(a/b)-(c/d);
end;
11:begin writeln(a,'*',b,'*',c,'/',d,'=');
hot:=a*b*c/d;
end;
12:begin writeln('(',a,'+',b,')/(',c,'+',d,')=');
hot:=(a+b)/(c+d);
end;
13:begin writeln(a,'/',b,'+',c,'+',d,'=');
hot:=a/b+c+d ;
end;
14:begin writeln(a,'-',b,'-',c,'-',d,'=');
hot:=a-b-c-d ; 
end;
15:begin writeln(a,'+',b,'-',c,'+',d,'=');
hot:=a+b-c+d ;
end;
16:begin writeln(a,'-',b,'+',c,'+',d,'=');
hot:=a-b+c+d ;
end;
17:begin writeln(a,'-',b,'-',c,'+',d,'=');
hot:=a-b-c+d ;
end;
18:begin writeln(a,'*',b,'*',c,'+',d,'=');
hot:=a*b*c+d ;
end;
19:begin writeln(a,'*',b,'*',c,'-',d,'=');
hot:=a*b*c-d ;
end;
0:begin writeln(a,'/',b,'+',c,'/',d,'=');
hot:=(a/b)+(c/d) ;
end;
else writeln('sorry');
readln(read);
writeln('OTBET:',read,'     ИСТИНА:', hot);
end;
end.


run \| edit \| history \| help	0