Var i: integer; s,t: string; begin writeln ('введите строку'); readln(s); i: =2; while i< =length(s) do begin t: =t+s[i]; i: =i+2; end; writeln(t); end.
Спасибо
Ответ дал: Гость
игрок мог поставить крестик в любую клетку поля, их 64; по формуле =n узнаем, какое кол-во информации получил второй игрок:
Популярные вопросы