Var a,b,p,n,x,i: integer; begin writeln('сколько примеров будешь решать: '); readln(n); for i: =1 to n do begin a: =random(10)+1; b: =random(10)+1; write('сколько будет ',a,'+',b,'='); readln(x); if x=a+b then begin p: =p+1; writeln('правильно'); end else writeln('неверно'); end; writeln('число правильных ответов: ',p); if p=n then writeln('отлично, ты превосходно знаешь арифметику'); if (p< n) and (p/n> 0.75) then writeln('хорошо, ты неплохо знаешь арифметику'); if (p/n< =0.75) and (p/n> 0.5) then writeln('удовлетворительно, ты средне знаешь арифметику'); if (p/n< =0.5) and (p> 0) then writeln('плохо, ты не знаешь арифметику'); if p=0 then writeln('отвратительно, ты абслютно не знаешь арифметику'); end.можно сделать, чтобы не только на сложение, а на все 4 действия.
zaseche99
28.01.2020
2. конференция длится три дня. в первый и второй день выступают по 15 докладчиков, в третий день – 20. какова вероятность того, что доклад профессора м. выпадет на третий день, если порядок докладов определяется жеребьевкой? 1. в корзине 9 красных шаров и 3 синих. шары различаются только цветом. наугад (не глядя) достаём один из них. какова вероятность того, что выбранный таким образом шар окажется синего цвета? 3. в жеребьевке участвуют 5 немцев, 8 французов и 3 эстонца. какова вероятность того, что первым (/вторым/седьмым/последним – не важно) будет выступать француз.