Создайте программу в PascalABC.Выводится математическое выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было
Выражений должно быть 7-8

Спасибо огромное

Пожалуйста.

var n1,n2,r,k,i:integer;beginRandomize;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.Пример:98 + 59 = 15718 + 99 = 11723 + 47 = 7016 + 21 = 3538 + 62 = 10016 + 81 = 9754 + 28 = 82k = 6

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017// Внимание! Если программа не работает, обновите версию!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.Пример77 - 21 = 5653 - 97 = -4491 + 51 = 14242 - 65 = -2370 + 78 = 14891 - 5 = 8645 + 41 = 86Верных ответов: 7