Advertisement
PikMike

Untitled

Dec 20th, 2015
352
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. использовать Файлы
  2. алг тест
  3. нач
  4. цел a, b, inp, out
  5. inp := 0
  6. out := 1
  7. открыть на чтение("input.txt", inp)
  8. открыть на запись("output.txt", out)
  9. ф_ввод(inp, a, b)
  10. цел c
  11. c := a * b
  12. ф_вывод(out, c, нс)
  13. закрыть(out)
  14. закрыть(inp)
  15. кон
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement