<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ArrRandom(7,1,99); var b:=ArrRandom(7,1,99); var c:=ArrRandom(7,1,2); var k:=0; var r,x:integer; for var i:=0 to 6 do begin Write(a[i]); if c[i]=1 then begin Write(' + '); r:=a[i]+b[i] end else begin Write(' - '); r:=a[i]-b[i] end; Write(b[i],' = '); Read(x); if x=r then k+=1 end; // for Writeln('Верных ответов: ',k) end.
Var n1,n2,r,k,i:integer; begin Randomize; k:=0; for i:=1 to 7 do begin n1:=random(90)+10; n2:=random(90)+10; write(n1,' + ',n2,' = '); readln(r); if r=n1+n2 then k:=k+1; end; writeln('k = ',k); end.