<span><span /><span><span>
A
B
C
F1
</span><span>
0
0
0
1
</span><span>
0
0
1
0
</span><span>
0
1
0
0
</span><span>
0
1
1
1
</span><span>
1
0
0
1
</span><span>
1
0
1
1
</span><span>
1
1
0
0
</span><span>
1
1
1
1
</span></span></span>
Может,ясность............................
var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
Графическими
Звуковыми
Текстовыми