Написать код в сишарп,крестики нолики,решение должно быть реализовано в методах

245

408

Посмотреть ответы 1

Ответы на вопрос:

yanssen1976

Информатика

4,8(83 оценок)

2) var n: integer; sum,r: longint; begin sum: =0; r: =1; readln(n); for i: =1 to n do begin sum: =sum+n; r: =r*i; end; writeln('! n=',r); writeln('ср. арифм.=',sum/n); writeln('ср. геом.=', r/n); readln end. 3) var a,b: real; i: =integer; begin readln(a); b: =0; i: =1; while b< a do begin b: =b+1/i; i: =i+1; end; writeln(b); readln; end.