1. Описать все функции и их предназначение на данной
картинке

245

310

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

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

АлинькийЦветочок5

Информатика

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

Var t: text; a,b: integer; begin assign(t,'input.txt'); reset(t); read(t,a,b); close(t); if (a+b) mod 2 = 0 then begin assign (t,'output.txt'); rewrite(t); write(t,'white'); close(t); end else begin assign (t,'output.txt'); rewrite(t); write(t,'black'); close(t); end end. файлы в папке pabcwork.net или прописать к ним полный путь.