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);

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку