Создайте программу в PascalABC.Выводится математическое выражение (если можно рандомное) ,если в вводишь правильный ответ + 1 было Выражений должно быть 7-8
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.
Answers & Comments
Verified answer
Varn1,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.
Пример:
98 + 59 = 157
18 + 99 = 117
23 + 47 = 70
16 + 21 = 35
38 + 62 = 100
16 + 81 = 97
54 + 28 = 82
k = 6