Program aaa; var a,b,c,i,z:integer; begin randomize; z:=0; for i:=1 to 10 do begin a:=random(9)+1; b:=random(9)+1; write(a,'*',b,'='); readln(c); if(c=a*b) then inc(z); end; writeln('Из 10 заданий вы выполнили ',z,' заданий!'); end.
Это программа меняет на противоположный(+ на - и наооборот) program apscala;var a,b,max:integer;beginreadln(a,b);if a>b then max:=a else max:=b;max:=-max;writeln(max);end.<span> </span>