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 действия.
TatiyanaBe20135263
15.10.2020
Const n = 10; var a: array [1..n, 1..n] of integer; i, j, min, max, result: integer; begin for i : = 1 to n do for j : = 1 to n do readln(a[i, j]); min : = a[1, 1]; max : = a[1, 1]; for i : = 1 to n do for j : = 1 to n do begin if a[i, j] > max then max : = a[i, j]; if a[i, j] < min then min : = a[i, j]; end; result : = sqr(min) * sqr(max); writeln(result); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Разработайте метод, который получает в качестве параметра строку и возвращает сумму цифр в этой строке.с#