Var f: text; i, x: integer; Определите содержимое файла f после выполнения следующих операторов: rewrite(f); for i:=3 downto 1 do begin x:=2*i; write(f, x) end; close(f);

Question

Var f: text; i, x: integer; Определите содержимое файла f после выполнения следующих операторов: rewrite(f); for i:=3 downto 1 do begin x:=2*i; write(f, x) end; close(f);

Гость

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

Accepted Answer

В файл будут записываться числа 6, 4 и 2, но так как никаких разделителей между числами нет, то получится 642